Copy and Paste Cells based on Criteria

I have 2 columns, Column A has data and blanks in the cells.

I need a Macro that can go down the column and when it comes across data in a cell in column A it copies and pastes the data to Column B on the same row.

My 'Looping' does not seem to work Can any one help

Thanks

I'm trying to do it as a macro because I'm trying to do a whole load of reformating and wanted everything to run together.

Code I have so far is but I'm struggling with it being a newbe

Dim i As Long
i = 1

Do Until Trim(Cells(i, 1)) > 200


If Cells(i, 1) > 0 Then
Selection.Copy
ActiveCell.Offset(0, 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
i = i + 1
Loop

End If

End Sub

Hi

There is one other reason I want a macro in that where there is a blank in column a there is normally a value in colomn b that I do not want overwriten

Hi,

I'd hope that it would contunue untill the 200 which would be at the last value in column a

Guy

Hi,

All Works - Thanks for your help, Much appreciated