Use this:

Rows("2:2").Select
Selection.Cut
Sheets(importwks).Select
Range(targetrow).Select
ActiveSheet.Paste

Also, to find the last row, I would suggest this code
targetrow=Sheets(importwks).UsedRange.Rows.Count