xosotana
New Member
- Joined
- Jan 1, 2021
- Messages
- 4
- Office Version
- 365
- 2019
- 2016
- 2013
- 2011
- Platform
- Windows
- Mobile
- Web
I want to find the the last Four NON-BLANK Row and copy the cell value, to Column B,C.D E on the 2nd Sheet..
CODE
Sub FindTheLastFour()
'Finds the last four non-blank cell end xlUp
Dim lRow As Long
For i = 3 To 20
'Find the last non-blank cell in column A(1)
lRow = Cells(Rows.Count, 1).End(xlUp).Row
Next i
MsgBox "Last Row: " & lRow
End Sub
CODE
Sub FindTheLastFour()
'Finds the last four non-blank cell end xlUp
Dim lRow As Long
For i = 3 To 20
'Find the last non-blank cell in column A(1)
lRow = Cells(Rows.Count, 1).End(xlUp).Row
Next i
MsgBox "Last Row: " & lRow
End Sub