[VBA]Sub Macro12()

With ThisWorkbook.Worksheets("Timeline Data")
Range(.Range("A2"),.UsedRange.Offset(1,0)).EntireRow.Delete
End With

End Sub[/VBA]