Extend columns in a do until loop

[Allan91]

I have written this code which draws data from a sheet to another with a do until loop but it does it only for 1 column (column U, the 21st column). I want to be able to perform this for 5 columns (columns U, V,W,X,Y). How should I change my code?

Sub DrawData()

Dim x As Integer

x = 1

Do While Worksheets("Clean Data_I").Cells(x, 21).Value <> ""
Worksheets("Clean Data_I2").Cells(x, 1).Value = Worksheets("Clean Data_I").Cells(x, 21).Value
x = x + 1
Loop

End Sub

 

[Allan91]

Oops, it should be

With .Range("U1:Y" & .Range("U" & Rows.Count).End(xlUp).Row)

Also with this code the formula blanks should not create a problem.

Hey! This works perfectly.

Thanks a ton Fluff!

 

[Fluff]

Glad we could help & thanks for the feedback.

 

[Allan91]

Please disregard this message. I thanked twice thinking the first of didn't post

Oops, it should be

With .Range("U1:Y" & .Range("U" & Rows.Count).End(xlUp).Row)

Also with this code the formula blanks should not create a problem.

Hey this works!

Thanks a ton Fluff.