Macro to merge two columns of data

[Technowolf]

I have this:

	EM75
2
	BE14
17
	T66W
1F
12
1J
C
	PH47

<tbody>
</tbody>

I need this:

EM75

2

BE14

17

T66W

1F

12

1J

C

PH47

<tbody>
</tbody>

Is there a simple way to do this via macro? (long list of data)

 

[VBA Geek]

would this work your data

Sub Merge2()
With Range("a1:a" & Range("b" & Rows.Count).End(xlUp).Row).SpecialCells(xlCellTypeBlanks)
    .Formula = "=" & .Cells(1, 1).Offset(, 1).Address(False, False)
End With
With Range("a1:a" & Range("a" & Rows.Count).End(xlUp).Row)
    .Value = .Value
    .Offset(, 1).Clear
End With
End Sub

 

[Technowolf]

That did the trick! Thanks a lot!