Loop Through Cells For Copying

When I run the following code, I get "Run-time error '1004': Application-defined or object-defined error"...most of the time. Sometimes it will work when I don't pass any variables to the function, and insert a raw number for the variable "counter". But it still gives me the error most of the time.

Sub WriteLatLongs(counter) 'counter
Dim j As Integer
Dim toprow As Integer
Dim bottomrow As Integer
For j = 1 To counter
toprow = (((j - 1) * 250) + 1)
bottomrow = (j * 250)
Sheets("PixelCoord"). Range(Cells(toprow, 2), Cells(bottomrow, 3)).Select
Selection.Copy
Sheets(j).Range("B7").PasteSpecial Paste:=xlValues, Transpose:=True
Next j
Sheets("Sheet1").Select
ActiveWindow.SelectedSheets.Delete
Sheets("PixelCoords").Select
ActiveWindow.SelectedSheets.Delete
End Sub

The error highlights the following line: Sheets("PixelCoord").Range(Cells(toprow, 2), Cells(bottomrow, 3)).Select.