Question : Macro to Sort by Column and Delete Blanks

I am trying to sort "ascending" by column C. and once it is sorted, go to the last row in C and delete all the rows below it.

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:



Sub A1_SortbyAcctandDeleteBlanks()

    Range("A1").Select
    Selection.Sort Key1:=Range("C2"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
    Range("C1").Select
    Selection.End(xlDown).Select
    ActiveCell.Offset(1, 0).EntireRow.Select
    ActiveCell.Offset(1, 0).Range("A1").Activate
    Selection.Clear
    Range("A1").Select
End Sub

Answer : Macro to Sort by Column and Delete Blanks

Try this code

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:



Sub removextras()
Dim lastc As Long
Dim lastrow As Long
lastc = Range("C" & Rows.Count).End(xlUp).Row
lastrow = ActiveSheet.UsedRange.Rows.Count
If lastc <> lastrow Then
Rows(lastc + 1 & ":" & lastrow).Delete
Else
End If
End Sub

Question : Macro to Sort by Column and Delete Blanks

Answer : Macro to Sort by Column and Delete Blanks

Try this code 1: 2: 3: 4: 5: 6: 7: 8: 9: 10: Sub removextras() Dim lastc As Long Dim lastrow As Long lastc = Range("C" & Rows.Count).End(xlUp).Row lastrow = ActiveSheet.UsedRange.Rows.Count If lastc <> lastrow Then Rows(lastc + 1 & ":" & lastrow).Delete Else End If End Sub

Try this code

1: 2: 3: 4: 5: 6: 7: 8: 9: 10:

Sub removextras() Dim lastc As Long Dim lastrow As Long lastc = Range("C" & Rows.Count).End(xlUp).Row lastrow = ActiveSheet.UsedRange.Rows.Count If lastc <> lastrow Then Rows(lastc + 1 & ":" & lastrow).Delete Else End If End Sub