How to write a macro that pastes into next column if there is data in the assigned column

[pot3]

Delete this thread please. Thank you for your help!

[xladept]

Hi Pot,

Try this:

Sub Pot(): Dim wd As Worksheet, d As Long
Dim wp As Worksheet, ws As Worksheet, wt As Worksheet
Set wd = Sheets("Data"): Set wp = Sheets("Pre-Sales")
Set wt = Sheets("Service.Support")
Set ws = Sheets("Sales.OrderPlacement")

d = 3: Do Until wd.Cells(4, d) = "": d = d + 1: Loop
wd.Cells(4, d).Value = wp.Cells(2, 5).Value
wd.Cells(5, d).Value = wp.Cells(21, 10).Value
wd.Cells(9, d).Value = ws.Cells(21, 10).Value
wd.Cells(13, d).Value = wt.Cells(23, 10).Value

End Sub

BTW:
Your post does not comply with Rule 3 of our Forum RULES. Use code tags around code.

Posting code between [CODE] [/CODE] tags makes your code much easier to read and copy for testing, it also maintains VBA formatting.

Click on Edit to open your thread, then highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found here

[pot3]

Thank you so much! It didn't work unfortunately but is it ok if I attach you the excel sheet please? I truly appreciate you helping and giving me that tip! @xladept

[pot3]

Attached is my sheet.

[xladept]

There were a couple of problems in the sheet names - Data had a trailing space and there was no space in wt.name.

Let me know what's wrong with this: