"Learning the hard way" wrote:

Can anyone help? i have written a macro to copy what i want from one sheet to
another,(in the same book) but then i want it to copy on the next line when i
run it again. so as i keep the first lot of info, thus ending up with a page
of info as you go.
I have included the code so far.
Sub copy_keiths_invs()
'
' copy_keiths_invs Macro
' Macro recorded 23/05/2006 by Nick
'

'
Range("C10").Select
Selection.Copy
Sheets("Keith's Payments").Select
Range("A11").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Sheets("Payment Advice").Select
Range("D19").Select
Selection.Copy
Sheets("Keith's Payments").Select
Range("B11").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Sheets("Payment Advice").Select
Range("D20").Select
Selection.Copy
Sheets("Keith's Payments").Select
Range("C11").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Sheets("Payment Advice").Select
Range("D22").Select
Selection.Copy
Sheets("Keith's Payments").Select
Range("D11").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Sheets("Payment Advice").Select
Range("D23").Select
Selection.Copy
Sheets("Keith's Payments").Select
Range("E11").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Sheets("Payment Advice").Select
Range("D24").Select
Selection.Copy
Sheets("Keith's Payments").Select
Range("F11").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Range("A12").Select
Sheets("Payment Advice").Select
Application.CutCopyMode = False
End Sub