Select next blank row

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