Sub Macro1()
'//Declare variables//
Dim lngRowStart As Long, _
lngLastRow As Long, _
lngActiveRow As Long
Dim strMyCol As String
Dim rngDelRange As Range
'//Set variables//
lngRowStart = 2 'Initial data row. Change to suit.
strMyCol = "A" 'Column containing relevant data. Change to suit.
lngLastRow = Cells(Rows.Count, strMyCol).End(xlUp).Row
Application.ScreenUpdating = False
For lngActiveRow = lngRowStart To lngLastRow
If Left(Cells(lngActiveRow, strMyCol), 3) = "SR-" Then
'Cater for initial setting of 'rngDelRange' range
If rngDelRange Is Nothing Then
Set rngDelRange = Cells(lngActiveRow, strMyCol)
Else
Set rngDelRange = Union(rngDelRange, Cells(lngActiveRow, strMyCol))
End If
End If
Next lngActiveRow
'If the 'rngDelRange' range has been set, then...
If Not rngDelRange Is Nothing Then
'...delete the rows within it.
rngDelRange.EntireRow.Delete xlShiftUp
'Else...
Else
'...inform the user that no rows are to be deleted as there was no _
matching criteria in the dataset.
MsgBox "No rows to be deleted as no there was no matching criteria"
End If
Application.ScreenUpdating = True
End Sub