Delete Unwanted Rows

Hi,

Here's the code that I wrote to delete all the rows that not empty in column V. However, it did not work. Please help. Thanks.

Dim LCell As Range
Dim X As Long
X = ActiveSheet.UsedRange.Rows.Count
For Each LCell In Range("V2:V" & X)
        If LCell.FormularR1C1 <> "" Then
            LCell.Select
            Selection.EntireRow.Select
            Selection.Activate
            Selection.Delete Shift:=xlUp
        End If
Next

Best regards,

Matt