Copy / paste from range to range each day dynamic

[benntw]

I have a workbook that gets the current data in a column. The data starts on row 10. What I am looking to do is each day copy and paste the data 1 column over. I want it to grab all data and copy / paste 1 column over so I have a record of each day to the right of the current data. Thank you in advance

 

[mumps]

Try:

Sub CopyData()
    Range("A10", Range("A" & Rows.Count).End(xlUp)).Copy Cells(10, Columns.Count).End(xlToLeft).Offset(0, 1)
End Sub

 

[benntw]

Try:

Sub CopyData()
    Range("A10", Range("A" & Rows.Count).End(xlUp)).Copy Cells(10, Columns.Count).End(xlToLeft).Offset(0, 1)
End Sub

Try:

Sub CopyData()
    Range("A10", Range("A" & Rows.Count).End(xlUp)).Copy Cells(10, Columns.Count).End(xlToLeft).Offset(0, 1)
End Sub

Thank you. Is there a way to paste as values and adjust the column width at the same time ?

 

[mumps]

Try:

Sub CopyData()
    Range("A10", Range("A" & Rows.Count).End(xlUp)).Copy
    Cells(10, Columns.Count).End(xlToLeft).Offset(0, 1).PasteSpecial xlPasteValues
    Columns.AutoFit
    Application.CutCopyMode = False
End Sub

 

[benntw]

Try:

Sub CopyData()
    Range("A10", Range("A" & Rows.Count).End(xlUp)).Copy
    Cells(10, Columns.Count).End(xlToLeft).Offset(0, 1).PasteSpecial xlPasteValues
    Columns.AutoFit
    Application.CutCopyMode = False
End Sub

Thank you. That worked perfect

 

[mumps]

You are very welcome.