Assegnare contatore a Macro excel

[Pier 99]

Ciao, spero possiate aiutarmi perchè su sta cosa mi sto scervellando come non mai. 

Allora, la Macro del mio file excel, deve prendere dei numeri da delle celle e copiarle nelle celle A1 A2 A3 A4 A5 A7. Il problema voglio che all'esecuzione successiva io voglio che le copi in B1 B2 B3 B4 B5 B7, e poi  C1 C2 C3 C4 C5 C7  e così via.... il problema che ora mi sovrascrive la riga 1, quindi ad ogni esecuzione i dati da copiare me li sovrascrive nella riga 1. Mi hanno detto che si può usare un contatore, a cui si assegna inizio e fine. Questo contatore dovrebbe far passar la copia alla riga successiva ogni volta .... Come faccio??? Perfavore siate MOLTO precisi...   Per farvi capire negli allego il codice.... Ciao, Pier 99

 

Codice :

 

Range("B8").Select

    Selection.Copy

    Sheets("Contabilità").Select

    Range("A3").Select

    ActiveSheet.Paste

    Sheets("Ordine").Select

    Range("C8").Select

    Application.CutCopyMode = False

    Selection.Copy

    Sheets("Contabilità").Select

    Range("B3").Select

    ActiveSheet.Paste

    Sheets("Ordine").Select

    Range("B12").Select

    Application.CutCopyMode = False

    Selection.Copy

    Sheets("Contabilità").Select

    Range("C3").Select

    ActiveSheet.Paste

    Sheets("Ordine").Select

    Range("B14").Select

    Application.CutCopyMode = False

    Selection.Copy

    Sheets("Contabilità").Select

    Range("D3").Select

    ActiveSheet.Paste

    Sheets("Ordine").Select

    Range("B16").Select

    Application.CutCopyMode = False

    Selection.Copy

    Sheets("Contabilità").Select

    Range("E3").Select

    ActiveSheet.Paste

    Sheets("Ordine").Select

    Range("C20").Select

    Application.CutCopyMode = False

    Selection.Copy

    Sheets("Contabilità").Select

    Range("G3").Select

    ActiveSheet.Paste

    Range("C3,D3,E3,G3").Select

    Range("G3").Activate

    Application.CutCopyMode = False