How to Insert # of Rows based on Value Criteria in Column

I've spent hours trying to find the right code. I already have a 'Sub going, and this is the next step in the Sub.

I have a data set where I want to insert 3 rows if Column("C:C") < 1

Further up the module, I have: Dim ws As Worksheet Set ws = Workseets("Report1")

I didn't know if I needed to set another DIM.. This is what I have so far:

'Insert 3 Blank Rows after $ Share < 1.0

With ws
    If Range("C:C").Value < "1.0" Then
    Rows.EntireRow.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    End If
End With

But I'm getting the Run-Time error '13': Type Mismatch

Thanks for the help!