copy 4 columns into one, missing empty or #VALUE! cells

[dappy]

Hi folks,

i have 4 columns of data that vary in length to copy to one column and i cant figure out a loop to get the 2,3 or 4 columns copied to the bottom of the first

i have this so far

Dim x As Integer
Dim y As Integer
x = 1
y = 2
Do Until Worksheets("Sheet4").Range("A" & x) = ""
Worksheets("XML").Range("A" & y) = Worksheets("Sheet4").Range("A" & x)
y = y + 1
x = x + 1
Loop

any guidance much appreciated.

Carl

 

[dappy]

Sweet Lord you d' man!

that works perfectly.

I'm actually hugging the screen.

thank you so much and i apologies for being such a window licker.

I really appreciate all your work and thanks for sticking with it.

I cant thank you enough :D

kind regards

Carl

 

[Fluff]

Glad to help & thanks for the feedback