Hi everyone
There is an error 'End if without block if' with the code below:
Please could anyone help.
Sub RemoveRows()
Sheet1.Select
Dim x As Long,LastRow As Long
LastRow = Cells(Rows.Count,"A").End(xlUp).Row
For x = LastRow To2 Step -1
If Cells(x,3).Value <> "FASS"...