Sub test()
    Dim rw As Long, cl As Long
    For rw = 3 To 8
        For cl = 3 To 22
            Cells(rw, cl) = "-"
        Next
    Next
End Sub