I got an error trying to run this script I want to delete the first and 3rd
row to make a flat file database sheet.
tia,


Sub deleteR1R3()
Dim LastRow As Range
With ActiveSheet
Set LastRow = Cells(Rows.Count, "A").End(xlUp).Row
If (LastRow = 1) And IsEmpty(Range("A1")) Then
Cells(3, "A").EntireRow.Delete
Cells(1, "A").EntireRow.Delete
End If
End With
End Sub