Row delete macro

One way

Sub DeleteRows()
 Dim arrStrings, i As Long, ii As Long
 
 arrStrings = [{"string1","string2"}] 'add more values
 
 With Application
    .ScreenUpdating = False
    With ActiveSheet
        For i = .Cells(Rows.Count, "a").End(xlUp).Row To 1 Step -1
           For ii = 1 To UBound(arrStrings)
               If .Cells(i, "a").Value = arrStrings(ii) Then
                   .Cells(i, "a").EntireRow.Delete
                Exit For
               End If
           Next ii
        Next i
    End With
    .ScreenUpdating = True
 End With
End Sub

Maybe you can list the string down column A on another sheet and this will work

Sub DeleteRows()
 Dim arrStrings, i As Long, ii As Long
 
 'arrStrings = [{"string1","string2"}] 'add more values
 
 arrStrings = Worksheets("SomesheetName").Range("a1:a100") ' Change sheet name
 
 With Application
    .ScreenUpdating = False
    With ActiveSheet
        For i = .Cells(Rows.Count, "a").End(xlUp).Row To 1 Step -1
           For ii = 1 To UBound(arrStrings)
               If .Cells(i, "a").Value = arrStrings(ii, 1) Then
                   .Cells(i, "a").EntireRow.Delete
                Exit For
               End If
           Next ii
        Next i
    End With
    .ScreenUpdating = True
 End With
End Sub

I would put the strings in cell by themself Cell A1 = String 1, A2= string2,A3 = string3 ect...
You can change the range below in the red

 
 arrStrings = Worksheets("SomesheetName").Range("a1:a100") ' Change sheet name

Give this a try

Sub DeleteRows()
 Const cColumnToSearch As String = "a" 'Change here for your needs
 Dim arrStrings, i As Long, ii As Long
  
 ' In cell c1 list your strings separated by a comma. No quoates Example string1,string2,string3
 arrStrings = Split(Worksheets("SomesheetName").Range("c1").Value, ",") ' Change sheet name for your needs
 
 With Application
    .ScreenUpdating = False
    With ActiveSheet
        For i = .Cells(Rows.Count, cColumnToSearch).End(xlUp).Row To 1 Step -1
           For ii = LBound(arrStrings) To UBound(arrStrings)
               If .Cells(i, cColumnToSearch).Value = arrStrings(ii) Then
                   .Cells(i, cColumnToSearch).EntireRow.Delete
                Exit For
               End If
           Next ii
        Next i
    End With
    .ScreenUpdating = True
 End With
End Sub

At the top of code change a to c

const cColumnToSearch as string  = "a"