I have been able to successfully find the end of both a row and column, but I am only able to delete a column and not a row. The problem is that rows use numbers but my code is wanting a column letter. My goal is to delete everything after cell A5 to the right. Does anybody have any pointers?
Sub Range_End_Method() 'Finds the last non-blank cell in a single row or column Dim lRow As Long 'Find the last non-blank cell in column A(1) lRow = Cells(Rows.Count, 1).End(xlUp).Row With ActiveWorkbook.ActiveSheet.Range("A1:A" & lRow & "") .Clear End With Dim lCol As Long 'Find the last non-blank cell in row 1 lCol = Cells(1, Columns.Count).End(xlToLeft).Column With ActiveWorkbook.ActiveSheet.Range("A1:???" & lCol & "") .Clear End With End Sub