Sub test()
Dim Lin As Integer
For Lin = ActiveSheet.UsedRange.Rows.Count To 1 Step -1
Select Case Cells(Lin, 1).Value
Case "BusA Cur- Down pmnt OI total", "**", " ency", "Summary sheet across all company codes", "Company code 577 summary sheet"
Rows(Lin).Delete Shift:=x1Up
End Select
If InStr(1, Cells(Lin, 1).Value, "Company") <> 0 Then Rows(Lin).Delete Shift:=x1Up
Next Lin
Rows(Range("A65536").End(xlUp).Row).Delete Shift:=x1Up
End Sub