I'm currently trying to put a string of cells together in a and complete it across several columns but I can't figure out how to change the destination for the output each time
Sub test()
Dim x
x = 7
For x = 7 To 595
Dim rng As Range
Dim i As String
For Each rng In Selection
i = i & rng
Next rng
Range("B1").Value = Trim(i)
Next x
End Sub
Sub test()
Dim x
x = 7
For x = 7 To 595
Dim rng As Range
Dim i As String
For Each rng In Selection
i = i & rng
Next rng
Range("B1").Value = Trim(i)
Next x
End Sub