codice:
Sub RAGGRUPPA_DATI()
Dim MyFoglio As String
MyFoglioperAccess As String

MyFoglioPrincipale = "Foglio1"--->inserisci il nome del foglio in cui hai i dati
MyFoglioperAccess = "Foglio2"--->inserisci il nome del foglio in cui mettera i dati

    Sheets(MyFoglio).Select
    Range("A1").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets(MyFoglioperAccess).Select
    Range("A1").Select
    ActiveSheet.Paste
    Sheets(MyFoglio).Select
    Range("B3").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets(MyFoglioperAccess).Select
    Range("B1").Select
    ActiveSheet.Paste
End Sub
questo è solo un esempio.