VBA copy specific cell in column to another column, same row

[DanielFran]

Hi,

I was wondering if there could be a vba code for the following situation:
The goal is to copy data from Col A when there is data and paste it into col C on the same row.
Note: when there is data in col A, Col C is always empty

HEADER (COL A)	HEADER (COL B)	HEADER(COL C)
AB	AB
		YY
		AC
AB	AB
		DE
		DE
		EY
		ZZ
12	12
		FE

<tbody>
</tbody>

Result:

HEADER (COL A)	HEADER (COL B)	HEADER (COL C)
AB	AB	AB
		YY
		AC
AB	AB	AB
		DE
		DE
		EY
		ZZ
12	12	12
		FE

<tbody>
</tbody>

Kind Regards,
Daniel

 

[alansidman]

try this

Sub AtoC()
    Dim lr As Long, i As Long
    lr = Range("C" & Rows.Count).End(xlUp).Row
    For i = 2 To lr
        If Range("C" & i) = "" Then
            Range("C" & i) = Range("A" & i)
        End If
    Next i
End Sub

 

[DanielFran]

Hi Alan,

It worked perfectly.

Thank you very much