Copy and Paste rows

Hi,

I want to copy and paste row in sheet 3 to the row in sheet 1.
Since the row no is a variable, i m having difficulty in writing the right formula.
Please help.

Dim i as Integer
i=14 ' i keeps on changing ..here sample value is taken as 14
' Copy and paste the range A14:AF14
  Sheets("Sheet3").Select
        
   Range("A" & CStr(i) & ":" & "AF" & CStr(i)).Select
   Selection.Copy
   Sheets("Sheet1").Select
   Range("A" & Cstr(i) & ":" & "AF" & Cstr(i)).Select
    ActiveSheet.Paste

Above code doesn't work