Code:
Sub DeleteRows()

    Dim lng As Long
    With Worksheets("CurrentF")
        lng = .Cells(Rows.Count, "AA").End(xlUp).Row
        For lng = lng To 1 Step -1
            If Trim(.Cells(lng, "AA").Value) & Trim(.Cells(lng, "C").Value) = "Target3" Then
                .Rows(lng).Delete
            End If
        Next lng
    End With
    
End Sub