This code should do it
[vba]
NextRow = Worksheets("Sheet1").Range("C1").End(xlDown).Row + 1
Worksheets("Sheet2").Range("C11").Copy Worksheets("Sheet1").Cells(NextRow, "C")
[/vba]
This code should do it
[vba]
NextRow = Worksheets("Sheet1").Range("C1").End(xlDown).Row + 1
Worksheets("Sheet2").Range("C1
[/vba]
____________________________________________
Nihil simul inventum est et perfectum
Abusus non tollit usum
Last night I dreamed of a small consolation enjoyed only by the blind: Nobody knows the trouble I've not seen!
James Thurber
Posting Permissions
Reply With Quote