Copy Data into another sheet

[fari1]

my code copies a range from one sheet and paste it into another based upon cell adress from another sheet, but these code is not working when i amend it for just one cell value.
and below part of the code is highlighted

sh1.Range(cel.Offset(0, 3).Value & ":" & cel.Value).copy sh2.[I1]

my full code is

Sub filter()
Application.ScreenUpdating = False
Dim sh1 As Worksheet
Dim sh2 As Worksheet
Dim cel As Range, Col As Range
Set sh1 = Sheets("info")
Set sh2 = Sheets("filter")
cel In sh2.Range("L1:L" & sh2.Range("L1").End(xlDown).Row)
sh1.Range(cel.Offset(0, 3).Value & ":" & cel.Value).copy sh2.[I1]
End Sub

 

[texasalynn]

i think you might need to put range

copy sh2.Range("I1")