Copy Row macro modification needed

[darbar76528]

Hey everyone. I was wondering if someone could help me with this problem. I have a macro that copies rows and it does a great job, however, I need to modify it as follows: I need the macro to copy to a different column(other than A). Ideally, I would like the copied cells(Column A:D) to be copied over to Column I:L starting at row 31 and then advancing downward(this is where I am having problems). I have made several attempts to do this, but have been unsuccessful. Thanks in advance!

Sub CopyRows()

For Each chkbx In ActiveSheet.CheckBoxes
    If chkbx.Value = 1 Then
        For r = 1 To Rows.Count
            If Cells(r, 1).Top = chkbx.Top Then
                With Worksheets("Wooden Bldg")
                    LRow = .Range("A" & Rows.Count).End(xlUp).Row + 1
                    .Range("A" & LRow & ":D" & LRow) = _
                    Worksheets("Wooden Bldg").Range("A" & r & ":D" & r).Value
                End With
                Exit For
            End If
        Next r
    End If
Next
    For Each sh In Sheets
        On Error Resume Next
            sh.CheckBoxes.Value = False
        On Error GoTo 0
    Next sh
End Sub