title: Excel vba copy paste to next empty column
body: <p>I have calculations and texts in cells D8:E30. I want to create button for copying Range of D8:E30 with all fill colors, borders, formulas and texts as they are and paste to next empty column. At the starting point F8 is the first one where D8:E30 range can be copyed. By pressing the button D8:E30 is copyed to F8, then by pressing the button again D8:E30 is copyed to the next empty column and it will be H8... and so on. I managed to come up with the code below but it is inserting to the next empty ROW (veryically) I need it to be next empty Column (horizontally). Can anyone help with this one? Thank you!</p>
  
  <pre><code>Sub CopyPaste()
  Application.ScreenUpdating = False
  Dim copySheet As Worksheet
  Dim pasteSheet As Worksheet
  
  Set copySheet = Worksheets("Price calculation")
  Set pasteSheet = Worksheets("Price calculation")
  
  copySheet.Range("D8:E30").Copy
  pasteSheet.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial xlPasteFormulas
  
  Application.CutCopyMode = False
  Application.ScreenUpdating = True
  End Sub
  </code></pre>