Re: $$Excel-Macros$$ Create macro to reformat spreadsheet for importing

ht.Cells.SpecialCells(xlCellTypeLastCell).Row > Cntr = 1 > For x = 1 To Lrow > If Len(Wksht.Cells(x, 1)) = 4 Then > NWksht.Cells(Cntr, 1) = Wksht.Cells(x, 1) > NWksht.Cells(Cntr, 2) = Wksht.Cells(x + 2, 1) > NWksht.Cells(Cntr, 2) = Wksht.Cells(x + 3, 1) > Cntr = Cntr + 1 > End

$$Excel-Macros$$ Create macro to reformat spreadsheet for importing

I need to create macro to reformat spreadsheet for importing into Access. As usual the spreadsheet is not formatted properly. Here is a piece of the spreadsheet: 3196 28320221EBLADENST 39294812 275813701MABLELANE 40189085 3200 601771294ANGELINEDRIVE 40240796 60136321JOHNMBOORDR