Perhaps:
Range("AG" & Irow & ":AO" & Irow).Copy
You almost had it, but put ":" after AG and AO.
However, it may be more efficient to just find the last row in column A, and then copy all the data in one shot:
Sub Fean()
Dim iRow As Integer
Dim lRow As Integer
Dim iCol As Integer
Dim iEndCol As Integer
Dim wb As Workbook
Dim ws As Worksheet
iRow = 2
iCol = 33 ' AG
iEndCol = 41 'AO
Set wb = ThisWorkbook
Set ws = wb.Worksheets("Data Fetched")
lRow = ws.Range("A" & Rows.Count).End(xlUp).Row 'last row with data in column A
'copy the whole range in one shot:
ws.Range(ws.Cells(iRow, iCol), ws.Cells(lRow, iEndCol)).Copy
End Sub
Bookmarks