title: VBA code to Copy data from one sheet to another
body: <p>Good Afternoon!</p>
  
  <p>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. </p>
  
  <pre><code>Sub Submit()
  
  Range("E6:E27").Copy
  
  Sheets("JANUARY").Range("F" &amp; Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues, Operation:=xlNone, SkipBlanks:= _
          False, Transpose:=True
  
  Range("D3").Copy
  
  Sheets("JANUARY").Range("B" &amp; Rows.Count).End(xlUp).Offset(1, 0)PasteSpecial xlPasteValues, Operation:=xlNone, SkipBlanks:= _
          False, Transpose:=True
  End Sub
  </code></pre>
  
  <p>Can anyone provide some guidance, tips, suggestions with this?</p>