Select next blank row

Hi,

how do I select next blank row?

This is what I've tried... but over writes previously pasted data.

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