下記の部分も変更して下さい。省略系でかかれているので!LoActiveSheet.Range(LoActiveSheet.Cells(LlRow, 1), LoActiveSheet.Cells(1000, 30)).Delete