VBA code to Copy data from one sheet to another

[CachimJ]

I am apologizing in advance for my lack of in depth knowledge of macros and VBA as I am new to this. I am trying to add a command button on one sheet to take the data from multiple cell ranges and copy the data over to another sheet in one horizontal row. The data must be copied to the next empty row and carry down the same table formatting as it adds a new line each time. The code that I am currently using copies some of the data in a new row each time I click the command button and some of the data on the same line repeatedly.

Sub Submit()

Range("E6:E27").Copy

Sheets("JANUARY").Range("F" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=True

Range("D3").Copy

Sheets("JANUARY").Range("B" & Rows.Count).End(xlUp).Offset(1, 0)PasteSpecial xlPasteValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=True
End Sub

Can anyone provide some guidance, tips, suggestions with this?