hücre içi değeri sadece silme

[NmBtn]

Makro kodu ile eylül ayı sayfasını kopyalayıp yeni isimle kaydediyorum ve manuel giriş yapılan hücreleri de siliyorum. Yekün kolonunda ki verileri ise stok hücresine kopyalıyorum. bu söylediklerim aşağıdaki kod yapıyor.
sorunum şu:
Sheets("EYLÜL").Visible = True
Sheets("EYLÜL").Copy After:=Worksheets(Worksheets.Count)

EYLÜL AYINI SÜREKLİ KOYALAMASIN EN SON KOPYALADIĞIM SAYFADAN DEVAM ETMEK İSTYORUM EYLÜL YERİNE SAYFANIN KENDİSİNİ NASIL TANIMLARIM?

ŞİMDİDEN TEŞEKKÜRLER



Sub Kopyala()
Sheets("EYLÜL").Visible = True
Sheets("EYLÜL").Copy After:=Worksheets(Worksheets.Count)
10 NewPageName = InputBox("Kopyalamak Üzere Olduğunuz Sayfanın Adını Belirleyiniz...!!!")
For a = 1 To Sheets.Count
If UCase(Sheets(a).Name) = UCase(NewPageName) Then
MsgBox "Seçtiğiniz sayfa adı mevcuttur yeniden deneyin."
GoTo 10
End If
Next
ActiveWindow.ActiveSheet.Name = NewPageName

Range("G2:G56").Copy
Range("D256").Select
Selection.PasteSpecial Paste:=xlPasteValues

Range("E2:F56").Clear
Range("E2:F56").Clear
Range("H2:H56").Clear

End Sub

 

[PLİNT]

EYLÜL AYINI SÜREKLİ KOYALAMASIN EN SON KOPYALADIĞIM SAYFADAN DEVAM ETMEK İSTYORUM EYLÜL YERİNE SAYFANIN KENDİSİNİ NASIL TANIMLARIM?

Merhaba
Şöyle olabilir;
Kodlarınızdan ilk satırlar:

[SIZE="2"]Sub Kopyala()
Sheets("EYLÜL").Visible = True
Sheets("EYLÜL").Copy After:=Worksheets(Worksheets.Count)

'....diğer kodlar
 [/SIZE]

Sayfa adına bakmadan, halihazırda ki son sayfayı kopyalayıp, son sayfa olarak eklesin.
(gerek varsa mavi bölümüde değiştirirsiniz)

[SIZE="2"]Sub Kopyala()
Sheets([COLOR="Blue"]"EYLÜL"[/COLOR]).Visible = True
Sheets([COLOR="Red"]Worksheets.Count[/COLOR]).Copy After:=Worksheets(Worksheets.Count)

'....diğer kodlar
 [/SIZE]