excel vba last row
Dim rRange As Range Dim rDuplicate As Range Set rRange = ActiveSheet.UsedRange lFirstRow = rRange.Row lLastRow = rRange.Rows.Count + rRange.Row - 1 lFirstColumn = rRange.Column lLastColumn = rRange.Columns.Count + rRange.Column - 1 ' New reference to current range (can be resized / moved) Set rDuplicate = Range(Cells(lFirstRow, lFirstColumn), _ Cells(lLastRow, lLastColumn))
excel vba last column with data
Dim rLastCell As Range Set rLastCell = ws.Cells.Find(What:="*", After:=ws.Cells(1, 1), _ LookIn:=xlFormulas, LookAt:= xlPart, SearchOrder:=xlByColumns, _ SearchDirection:=xlPrevious, MatchCase:=False) MsgBox ("The last used column is: " & rLastCell.Column)