i think it is doing this 2000 times thats why it is slow:-
for loop
insert table values 1, value 2 , value3, value4 into (_
.cells(rownumber, col 1),
.LEFT(cells(rownumber, col 1),2),
.MID(cells(rownumbercol2) ,1,2))
.MID(cells(rownumbercol3) ,1,2))
.MID(cells(rownumbercol4) ,1,2))
etc...
)...