Boa noite
Gostaria de saber se alguem me podia ajudar com uma macro

O ojectivo é criar uma macro em que ela vá buscar dados a uma folha e os coloque noutra, na linha correspondente.
Ou seja, o livro é de controle de chaves em que eu tenho que efectuar registo ( o modulo 1 esta correto e a funcionar, como mostra o exemplo). No modulo 2 a macro tera que colocar o registo da chave na linha correspondente.

Modulo 1

Sub Exportar()
'
' Exportar Macro
' Macro recorded 21-04-2013 by '

'
    Range("A4:I4").Select
    Selection.Copy
    Sheets("Movimento").Select
    Range("A10").End(xlDown).Select
    ActiveCell.Offset(1, 0).Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
    Range("A3").Activate
    Sheets("REGISTO").Select
    Range("A4,G4,I4").Select
    Range("I4").Activate
    Selection.ClearContents
    Range("A4").Select
       
End Sub