adapting some code

[rhino4eva]

Sub punchclock()
    Dim ws As Worksheet
    Dim rFound As Range
    datenow = Format(Now(), "ddd dd")
    timenow = Format(Now(), "hh:mm")
    Set ws = Sheets("Sheet1")
    With ws.Range("c1:f33")
        On Error Resume Next
        Set rFound = .Find("*", SearchDirection:=xlPrevious, SearchOrder:=xlByColumns, LookIn:=xlValues)
        On Error GoTo 0
        If rFound Is Nothing Then
        .Cells(1).Value = timenow
        ElseIf Intersect(rFound, .Cells(.Rows.Count, .Columns.Count)) Is Nothing Then
            If rFound.Row < .Rows(.Rows.Count).Row Then
                rFound.Offset(1, 0).Value = timenow
            Else
                rFound.Offset(.Rows.Count + 1, 1).Value = timenow
            End If
        Else
            MsgBox "No empty cell found within " & .Address(0, 0) & ".", vbInformation
        End If
    End With
End Sub

I am trying modify some code that a fellow Mr excel forum user gave me
I have got it to add a time stamp every time it's run in to the next empty cell in column as it goes down from c1 to c33 then back up to d2 down to d33 etc.

my problem is two fold

1)How do I make go across 4 columns and then go onto the next row.
2)I have set a datenow variable in the hope I will be able search down column b and start the time stamping in in columns c,d,e,f

any help would be gratefully received