a,b,c,d,e,f satırındaki değerleri, başka sayfaya çekmek

[jinken]

dosyayı ekledim detaylı açıklama dosya içinde mevcut.
yardımınız için şimdiden teşekkür ederim.

 

[Orion1]

Dosyanız ektedir.

Sub aktar59()
Dim sh As Worksheet, sat As Long
Sheets("Sayfa1").Select
Set sh = Sheets(Range("G2").Value)
sat = sh.Cells(Rows.Count, "A").End(xlUp).Row + 1
Application.ScreenUpdating = False
Range("A1").AutoFilter
Range("A1:F1").AutoFilter field:=1, Criteria1:=Range("G2").Value
Range("A1").CurrentRegion.Offset(1, 0).Copy sh.Range("A" & sat)
Range("A1").AutoFilter
Application.ScreenUpdating = True
MsgBox "Veriler " & Range("G2").Value & " sayfasına aktarıldı." & vbLf & _
        "evrengizlen@hotmail.com"
Set sh = Nothing
End Sub

 

[jinken]

bunu formül ile yazmanın bir yolu var mı? acaba yardımın için teşekkür ederim bu arada,