Thread: copy to next available row

Hi,

I've set up an invoice and want to be able to copy the data to the next available row in another worksheet.

I've assigned the macro to a Command Button.

Specific cells in the invoice are linked to a worksheet from where the macro copies and pastes into the Sales Ledger

Except that only the copy part works... it doesn't select the next blank line!

Sub copyinvoicedatatosalesledger()
'
' copyinvoicedatatosalesledger Macro
'
' Keyboard Shortcut: Ctrl+q
'
Application.ScreenUpdating = False
If Range("A2") <> "" Then
Selection.End(xlDown).Select

End If
Sheets("Sales Ledger").Select
Range("I2:N6").Select
Selection.CurrentRegion.Select
ActiveCell.Offset(1, 0).Range("A1").Select
Range("I2:N6").Select
Selection.Copy
ActiveWindow.SmallScroll ToRight:=-2
Range("A2:F6").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub

Any thoughts?

Your post does not comply with Rule 3 of our Forum RULES. Use code tags around code. Posting code without them makes your code hard to read and difficult to be copied for testing. Highlight your code and click the # at the top of your post window. For more information about these and other tags, found here

This must have been covered several thousand times, so the forum search should find it