Deleteing Row and Column in excel

[jmaxwell]

Hi,<?xml:namespace prefix = o ns = "urn:schemas-microsoft-comfficeffice" /><o></o>
<o></o>
My spreadsheets contain an uncertain amount of rows and columns. I need the macro code to delete all rows after the last data in column A and delete all columns after the last data in the last data in row 1. <o></o>
<o></o>
For example: <o></o>
<o></o>
Deleting Rows: If the last data in column A is "A150", then delete all rows after "A150"<o></o>
<o></o>
Deleting Columns: If the last data in Row 1 is "W1", then delete all columns after "W1"<o></o>
<o></o>
Any help will be appreciated. Thank you!<o></o>

 

[VoG]

Hello. Easily done but Excel will simply add blank rows and columns. What do you actually want to do?

 

[AlphaFrog]

Sub Clear_BelowColA_RightRow1()

    Dim last as Long
    
    last = Range("A" & Rows.Count).End(xlUp).Row + 1
    Rows(last & ":" & Rows.Count).Clear
    
    last = Cells(1, Columns.Count).End(xlToLeft).Column + 1
    Range(Cells(1, last), Cells(1, Columns.Count)).EntireColumn.Clear
    
End Sub

 

[jmaxwell]

That works! Thanks