Below is the sub that I have written. Can anyone tell me
why I am getting this error?:

"Run-Time error '1004':
Method 'Range" of object '_Global" failed

It's giving me the error on this line:
Range(rng1, "1:1").EntireRow.Select

Here's the Sub:
#########################
General

Dim Vertrng As Range, Plotrng As Range, rng1 As Range,
rng2 As Range, Arng As Range, POBrng As Range, rng3 As
Range
Dim cell As Range
_____________________________
Sub CogoPC_DataConversion()

Set Vertrng = Range(Cells(1, 1), Cells(Rows.Count, 1).End
(xlUp))
For Each cell In Vertrng
If cell.Value = "*VERTICAL" And rng1 Is Nothing Then
Set rng1 = cell
Exit For
End If
Next

Range(rng1, "1:1").EntireRow.Select
Selection.ClearContents

Call Step2
End Sub
##########################