Let me start by saying I have no idea what I am doing. I have gotten this far on pure luck. This is my task: Set up a receipt and sales log for a small business, which then can be used to organize sales information.

I have created the imput form with all of the data fields required and have sucessfully been able to list my entries in the database. The problem I am having is structuring the coding so identical fields are listed in the same column for one entry. This is what I have so far:
Sub UpdateLogWorksheet()

Dim historyWks As Worksheet
Dim inputWks As Worksheet

Dim nextRow As Long
Dim oCol As Long

Dim myRng As Range
Dim myCopy As String
Dim myCell As Range

'cells to copy from Input sheet - some contain formulas
myCopy = "C10,C12,C13,C15,C16,C17,D17,C18,C19,C20,D20,C21,C22,C23,D23,C24,C25,C26,D26,C27,C28,C29,D29,C30,C31,C32,D32,D33,D34,D35,D36"

Set inputWks = Worksheets("Input")
Set historyWks = Worksheets("Record")

With historyWks
nextRow = .Cells(.Rows.Count, "A").End(xlUp).Offset(1, 0).Row
End With

With inputWks
Set myRng = .Range(myCopy)


End With

With historyWks
With .Cells(nextRow, "A")
.Value = Now
.NumberFormat = "mm/dd/yyyy"
End With
.Cells(nextRow, "B").Value = Application.UserName
oCol = 3
For Each myCell In myRng.Cells
historyWks.Cells(nextRow, oCol).Value = myCell.Value
oCol = oCol + 1
Next myCell
End With

'clear input cells that contain constants
With inputWks
On Error Resume Next
With .Range(myCopy).Cells.SpecialCells(xlCellTypeConstants)
.ClearContents
Application.GoTo .Cells(1) ', Scroll:=True
End With
On Error GoTo 0
End With
End Sub

What I would like the database to look like is to have:
C10, C12, C13 to imput into a column each (done), then have
C15,C18,C21,C24,C27,C30 in one column with each field on a new row. same for the following sets:
C16,C19,C22,C25,C28,C31
C17,C20,C23,C26,C29,C32
D17,D20,D23,D26,D29,D32
Then have D33,D34,D35,D36 each in their own column.

The goal is to eventual be able to sort by the grouped sets in the database.


I am probably useing the wrong terminology here. Any help would be great!