Do you need to use programming? You could do this simply with formulas:

B1: =A2

and copy down as far as required.

If you do want to do it via programming:


With Range("A1:A" & _
Range("A" & Rows.Count).End(xlUp).Row).Offset(0, 1)
.Formula = "=A2"
'Remove comment from next line if you don't want formulae
'.Value = .Value
End With

In article
,
catalfamo1220
wrote:

I am in need of some way to rearrange a large set of data into a
different format.

Here is a sample of the data I currently have (Each line is a cell):

N042.56.30.9964 W069.56.16.291
N042.53.51.8124 W069.56.24.5938
N042.52.32.3600 W069.56.32.3296
N042.51.13.0525 W069.56.42.4469
N042.49.53.9284 W069.56.54.9383
N042.48.35.0264 W069.57.90.7951
N042.47.16.3848 W069.57.27.0076

My goal is to have it arranged like the following:

N042.56.30.9964 W069.56.16.291 N042.53.51.8124 W069.56.24.5938
N042.53.51.8124 W069.56.24.5938 N042.52.32.3600 W069.56.32.3296
N042.52.32.3600 W069.56.32.3296 N042.51.13.0525 W069.56.42.4469
N042.51.13.0525 W069.56.42.4469 N042.49.53.9284 W069.56.54.9383
N042.49.53.9284 W069.56.54.9383 N042.48.35.0264 W069.57.90.7951
N042.48.35.0264 W069.57.90.7951 N042.47.16.3848 W069.57.27.0076
N042.47.16.3848 W069.57.27.0076 N042.45.58.0417 W069.57.46.565

Essentially, every next line is copied and then pasted into the cell
next to the cell of the previous row. Any ideas on how this can be
accomplished? I would appreciate any help, as I am lost regarding any
kind of programming at this point.

Thanks a lot,
Mike Catalfamo