Code to check and match not working

Hi

I have the following code that is supposed to check cell AC for "YES" , if that is correct then put data into AH:AT from the row immediately above it.

What am I doing wrong?

Thanks
Jon

Sub fillgap()
With ActiveSheet
LR = .Range("A" & .Rows.Count).End(xlUp).Row
If Range("AC" & Rw) = ("YES") Then
Range("AH:AT" & Rw) = Range("AH:AT" & Rw - 1)
End If
End With

End Sub