Get Next Available Row on ActiveSheet

Option Explicit
Dim myRng As Range

Sub Get_Next_AvailableRow()
 Set myRng = Range("a65536").End(xlUp).Offset(1, 0)
 MsgBox myRng.Address
End Sub

Leave a Comment

You must be logged in to post a comment.