Using Range And Cells To Copy Column In VBA

I am trying to copy a range of data from one sheet to another. I can almost get it to work. Here are the values of the variables I use in the code below

Code:
cal_col_counter =5 col_counter=1 and no_of_rows=249

I can't understand why this code works

Code:
Sheets("data converted").Range("e1:e" & no_of_rows).Copy Destination:=Sheets("calculations").Range(Cells(1, cal_col_counter), Cells(no_of_rows, cal_col_counter))

But when I change it to this

Code:
Sheets("data converted").Range(Cells(1, col_counter), Cells(no_of_rows, col_counter)).Copy Destination:=Sheets("calculations").Range(Cells(1, cal_col_counter), Cells(no_of_rows, cal_col_counter))

it gives me an application-defined or object-defined error.