Select next blank row

[AldenH123]

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

[royUK]

You don't need to Select, what is your code doing? Also, you shouldn't switch screenupdating off without restoring it

[AldenH123]

Thanks Roy.

You don't need to Select, what is your code doing? Also, you shouldn't switch screenupdating off without restoring it

I'm trying to find the first blank row in a worksheet and then copy data to the list... this is nearly right, but takes me to the last row with text.

Sheets("Sheet1").Select
If Range("A1") <> "" Then Selection.End(xlDown).Select

[royUK]

You aren't answering what i asked.

This will find the last used cell in Column A, +1 to get the next empty oner.

Dim NextRw As Long
With Sheets("Sheet1")
'find last used cell in Column A
NextRw = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
End With

I've asked what the whole code is doing so that i can suggest code

[DanExel]

Hi,
Ad the statement selection.offset(1,0).select
All those select statements are not necessary.
I suspect you you used the Macro recorder to obtain the code
Rebards
DAN

[AldenH123]

Hi,
Ad the statement selection.offset(1,0).select
All those select statements are not necessary.
I suspect you you used the Macro recorder to obtain the code
Rebards
DAN

Cheers Dan, yes, I did use the Macro recorder function... I'm a newbie trying his best to learn.

Really appreciate your help

[royUK]

You should also note that a table of data like your sales ledger should have no completely empty rows. Proper use of Excel here & I doubt if you would need VBA

[royUK]

You won't learn unless you read replies & provide information when asked.