Use =Left Function in VBA to pull characters from adjacent cell

[xcelnovice]

Hello, I'd like to take the first 4 characters of a string from Col B starting in B3 and copy them to COl A all the way down to the end of the file. Here is what I have so far, this is the next step. Also any other tips/criticism on what i already have is welcomed

Sub FormatReport()
ActiveSheet.Copy After:=Sheets("Page1_1")
Range("A1").EntireColumn.Insert
Range("C1").Resize(, 2).EntireColumn.Insert
Range("A2").Value = "Proj"
Range("C2").Value = "Org List"
Range("D2").Value = "Org Group"
Range("B2").Copy
Range("A2").PasteSpecial xlPasteFormats

 

[mole999]

in A3 =left(B3,4), drag down

depends on how often you are doing it

you could record that in macro recorder