*** Copy and Paste Help *** Excel Example Within

[gcbutter]

Good afternoon everyone. I need a simple vba to take copy the value in the A Column and paste it down to the next value (Same Column) and so on. Here is the Active sheet view:

A B C D E F G H I J

AirPort	Item ID	NB #	NB #	Item Name	Item Loc	Item Dest	Item/Rec Time	Air Cargo	NB ID
AE	P4532	C211	C211	Spider	OERK	OFGH			4352
	A2158	C211	C211	David	OERK	OFGH			4353
	PZ4895	C211	C211	Purse	OERK	OFGH			4354
	A4258	C451	C451	Bear	OERK	OFGH			4355
SP	FE4525	C321	C321	Tear	OERK	OFGH			4356
	P4875	C487	C487	Taco	OERK	OFGH			3530
	P6985	C585	C585	Zipper	OERK	OFGH			3531
	PO4789	C459	C459	Punch	OERK	OFGH			3532
UE	AZ4823	C596	C596	Apexi	OERK	OFGH			3533
	P7524	HELV	C417	Drac	OERK	OFGH			3534

<tbody>
</tbody><colgroup><col span="4"><col><col><col><col><col span="2"></colgroup>

Desired Output:

A B C D E F G H I J

AirPort	Item ID	NB #	NB #	Item Name	Item Loc	Item Dest	Item/Rec Time	Air Cargo	NB ID
AE	P4532	C211	C211	Spider	OERK	OFGH			4352
AE	A2158	C211	C211	David	OERK	OFGH			4353
AE	PZ4895	C211	C211	Purse	OERK	OFGH			4354
AE	A4258	C451	C451	Bear	OERK	OFGH			4355
SP	FE4525	C321	C321	Tear	OERK	OFGH			4356
SP	P4875	C487	C487	Taco	OERK	OFGH			3530
SP	P6985	C585	C585	Zipper	OERK	OFGH			3531
SP	PO4789	C459	C459	Punch	OERK	OFGH			3532
UE	AZ4823	C596	C596	Apexi	OERK	OFGH			3533
UE	P7524	HELV	C417	Drac	OERK	OFGH			3534

<tbody>
</tbody><colgroup><col span="4"><col><col><col><col><col span="2"></colgroup>

Thank you and I look foward to your replie(s).

 

[MARK858]

Try

Sub FillB3()
    Dim c As Range

    For Each c In Range("a2:a" & Range("b" & Rows.Count).End(xlUp).Row)
        If Left(c.Value, 1) = Chr(32) Then
        c.FormulaR1C1 = "=R[-1]C"
        c.Value = c.Value
    Next

End Sub

 

[gcbutter]

MARK858, the second code worked perfectly; Thakn you! I just wish I had skills like you sir...

Side note: Where did you receive your vba education from?

 

[MARK858]

Side note: Where did you receive your vba education from?

Practice, necessity(work) and reading forums like this one (and some books), basically purely amateur and still a lot to learn


Even though it is probably overkill can you see if the code below works in your circumstance?

Sub FillC()
    Dim Afill As Range, v As Variant, i As Long

    With Range("a2:a" & Range("b" & Rows.Count).End(xlUp).Row)

        v = .Value2
        For i = LBound(v) To UBound(v)
            v(i, 1) = Application.WorksheetFunction.Trim(v(i, 1))
        Next
        .Value = v

        On Error Resume Next
        For Each Afill In .SpecialCells(xlCellTypeBlanks).Areas
            Afill.Value = Afill(1).Offset(-1).Value
        Next
        On Error GoTo 0
    End With

End Sub