Excel VBA

I trying to delete all rows based on the current region property starting in cell A12. The number of rows is not fixed and will vary each time. I have written the following code:

Dim WorkRange As Range
Dim Row As Range
Dim i As Variant

Sheets("Summary P&L Report").Activate
Set WorkRange = Sheets("Summary P&L Report").Range("A12").CurrentRegion

For i = WorkRange.Rows.Count To 1 Step -1
Set Row = WorkRange.Rows(i)

If Sheets("Summary P&L Report").Range ("A12").Cells.Value = "A" Then
Row.Delete

End If

Next i

Is the above the most efficient way to delete. Secondly I don't really want it to be conditional on range A12. I just want all rows (no matter how many there are) from A12 down to be deleted.

Many thanks

Steve