Hello everyone, how I can change this VBA to copy two columns instead of one? Lets say the B column is actually C column and there is one extra column - for the purpose of explanation I will add one more column before A. Now - both columns are with the same number of rows (A and B) instead of the one column which is in the example below. I need to copy both of them. I tried to change the macro but without success so I rather left it as it was. Your help is greatly appreciated.
Sub elgre()
Dim Rng As Range, Cl As Range
Set Rng = Range("B2", Range("B" & Rows.count).End(xlUp))
For Each Cl In Range("A2", Range("A" & Rows.count).End(xlUp))
With Range("H" & Rows.count).End(xlUp).Resize(Rng.count)
Cl.Copy .Offset(1)
.Offset(0, 1).Value = Rng.Value
End With
Next Cl
End Sub
Sub elgre()
Dim Rng As Range, Cl As Range
Set Rng = Range("B2", Range("B" & Rows.count).End(xlUp))
For Each Cl In Range("A2", Range("A" & Rows.count).End(xlUp))
With Range("H" & Rows.count).End(xlUp).Resize(Rng.count)
Cl.Copy .Offset(1)
.Offset(0, 1).Value = Rng.Value
End With
Next Cl
End Sub
