>>293
これならエラーが出ないと思うけど
Set kokyaku = Range(Cells(2, 4), Cells(2, lastcol))