you can change this line to this one:
.SetRange ActiveCell.Range(ActiveSheet.Cells(1, 1), ActiveSheet.Cells(1042, 3))
to set the range to rows 1 to 1042, col 1 to 3, in this example
but your macro works weird