Delete Bottom Row Macro Help

Hello Everybody, I have the following macro that Deletes the bottom row after searching Column A for Duplicates. I need to alter it to only delete Columns A-F of the bottom row. Can anybody help me.

Sub DeleteBottomRow()
Range("A2").Select
rowx = 1
Do Until Cells(rowx + 1, 1).Value = ""
If UCase(Cells(rowx, 1).Value) = UCase(Cells(rowx + 1, 1).Value) Then
Cells(rowx + 1, 1).EntireRow.Delete
Else
rowx = rowx + 1
End If
Loop

Beep

End Sub

Maybe:

Please Login or Register  to view this content.

Using your example this should do it:

Note: I would do it differently than how you are doing it but you asked for an alteration of the existing code

Please Login or Register  to view this content.

Thank You it works!