Sub Import_SOR_Data2()
'
' Import_SOR_Data Macro
st = Timer
Set ws1 = Sheets("ServiceOrder")
Set ws2 = Sheets("Imported data")
'ws2.Range("A1").Value = ws1.Range("BL3").Value
rownr = Cells.Find("Service Order").Row
colnr = Cells.Find("Service Order").Column
Cells(rownr + 0, colnr).End(xlToRight).Select
ws2.Range("A2").Value = ws1.Range("R16").Value
ws1.Select
lastrow = Cells(40, "A").End(xlDown).Row
colnr = 0 'set this to zero everytime
colnr = Cells.Find("Trade").Column 'search term must be exact
Range(Cells(40, colnr), Cells(lastrow, colnr)).Copy '3 commas, 1 period
'Range("a40:a" & lastrow).Copy
ws2.Cells(3, "a").PasteSpecial
'Range("p40:p" & lastrow).Copy
colnr = 0 'set this to zero everytime
colnr = Cells.Find("Item Code").Column 'search term must be exact
Range(Cells(40, colnr), Cells(lastrow, colnr)).Copy '3 commas, 1 period
ws2.Cells(3, "b").PasteSpecial
'Range("ac40:ac" & lastrow).Copy
colnr = 0 'set this to zero everytime
colnr = Cells.Find("Qty/Hrs").Column 'search term must be exact
Range(Cells(40, colnr), Cells(lastrow, colnr)).Copy '3 commas, 1 period
ws2.Cells(3, "c").PasteSpecial
'ws2.Cells(3, "c").PasteSpecial
colnr = 0 'set this to zero everytime
colnr = Cells.Find("Description").Column 'search term must be exact
Range(Cells(40, colnr), Cells(lastrow, colnr)).Copy '3 commas, 1 period
ws2.Cells(3, "d").PasteSpecial
'Range("al40:al" & lastrow).Copy
'ws2.Cells(3, "d").PasteSpecial
colnr = 0 'set this to zero everytime
colnr = Cells.Find("Location/Asset").Column 'search term must be exact
Range(Cells(40, colnr), Cells(lastrow, colnr)).Copy '3 commas, 1 period
ws2.Cells(3, "e").PasteSpecial
'Range("bk40:bk" & lastrow).Copy
'ws2.Cells(3, "e").PasteSpecial
For i = 1 To 5
nr = Choose(i, 11, 11, 8, 55, 23)
ws2.Columns(i).ColumnWidth = nr
Next i
ws2.Range("A3").CurrentRegion.Rows.AutoFit
ws2.Select
Cells(1, 1).Select
Cells.Borders.LineStyle = xlLineStyleNone
Debug.Print Timer - st '0.18 sec
End Sub