For Loop with Condition on the Pattern of a Cell

Hi all,

New to Macros and VBA.
I want to run a loop macro down a column (column 6) and check if the cell is hashed out (pattern 2) or not.
If it is hashed, I want it to enter "-" in the adjacent cell to the right (column 7) and if it isn't I want to copy the text from the unhashed cell (column 6) to the adjacent cell to the right (column 7).

Thanks in advance for any and all help.

George

Sub PrepareLCPTableforExport()
    Dim EndRow      As Integer
    Dim StartRow    As Integer
    Dim i           As Integer
     
    StartRow = 240
    EndRow = 329
    For i = StartRow To EndRow
        If Cells(i, 6).Pattern = 2 Then
        Cells(i, 7) = "-"
        Else
            Cells(i, 7) = Cells(i, 6)
        End If    
    Next i
End Sub