Copy data and paste into next available column

[Mykiej23]

Hi all,

I am trying to set up this spreadsheet but can't quite get it to work. I want all the data that is in A6:A33 to be pasted into the next available cell in the worksheet Tracker which starts at C6.

At the moment this is what I have and it works for the column in C6 but I can't get it to ignore whats in there and paste into D6 the next time.

Sub OverdueTestsData()

ActiveSheet.Range("A6:A33").Copy
Application.Goto Sheets("Tracker").Range("C6").End(xlToLeft).Offset(, 2)
ActiveSheet.Paste Link:=True
Application.CutCopyMode = False

End Sub

Any help would be appreciated. Thank you!

 

[Fluff]

How about

Sub OverdueTestsData()


ActiveSheet.Range("A6:A33").Copy
Application.Goto Sheets("Tracker").Cells(6, Columns.Count).End(xlToLeft).Offset(, 1)
ActiveSheet.Paste Link:=True
Application.CutCopyMode = False

End Sub

 

[Mykiej23]

How about

Sub OverdueTestsData()


ActiveSheet.Range("A6:A33").Copy
Application.Goto Sheets("Tracker").Cells(6, Columns.Count).End(xlToLeft).Offset(, 1)
ActiveSheet.Paste Link:=True
Application.CutCopyMode = False

End Sub

That worked great! Thank you so much! :D

 

[Fluff]

Glad to help & thanks for the feedback