Pasting columns to the next blank columns

[tatendamark]

Please help with a VBA code that copies and pastes contents in Range C8 : D19, to the next blank column (Range E8 : F19). With each run, I would like to paste the results from Range C8 : D19 to the next blank columns.

I would also like to be able to clear the contents in Range E8 : N19, at any point.

[Paul_Hossler]

This?

Option Explicit

Sub CopyNextColumn()
    Dim r1 As Range, r2 As Range
    
    Set r1 = ActiveSheet.Range("C8:D19")
    Set r2 = ActiveSheet.Cells(8, ActiveSheet.Columns.Count).End(xlToLeft).Offset(0, 1)
    
    r1.Copy r2
End Sub

Sub ClearData()
    ActiveSheet.Range("E8:N19").ClearContents
End Sub

[tatendamark]

Awesome. Thanx a mill, Paul.