Excel - Macro: Una variable dentro de range

Worksheets("Hoja1").Range(Cells(1, 1), Cells(10, 10)).Select

Worksheets("Hoja1").Range(Cells(fila_inicio, columna_inicio), Cells(fila_inicio + rango_filas, columna_inicio + rango_columnas)).Select

Sub Select2()

Dim A As Range

Dim C As Range, ws As Worksheet, aws As Worksheet

With Application

 .DisplayAlerts = False

 .ScreenUpdating = False

 .EnableEvents = False

 .Calculation = xlCalculationManual

End With

Set aws = ActiveSheet

Set A = Range("A1:A20")

Set ws = Worksheets.Add

For Each C In A

   With C

    If (.Row Mod 2) = 0 Then

       ws.Range(.Address(0, 0)).Value = 1

    End If

   End With

Next

ws.Range("A:A").SpecialCells(xlCellTypeConstants).Select

aws.Select 0

ws.Delete

With Application

 .DisplayAlerts = True

 .ScreenUpdating = True

 .EnableEvents = True

 .Calculation = xlCalculationAutomatic

End With

Set A = Nothing

Set C = Nothing

Set ws = Nothing

Set aws = Nothing

End Sub

Y = 1

Do While Range("A" & Y) <> Empty

    Y = Y + 1

Loop

.....

Range("B2:G2").Select

    Selection.AutoFill Destination:=Range("B2:G" & Y)

    Range("B3:G" & Y).Select

Case Is = 3

    Sheets("lote 3").Cells("18, 1") = Sheets("inventario").Range("A" & i)

    Sheets("lote 3").Cells("18, 2") = Sheets("inventario").Cells(i & ", 2")

    Sheets("lote 3").Cells("18, 3") = Sheets("inventario").Cells("i, 3")

Case Is = 3

'te falta decir que le quieres dar de una celda a otra .,. si es el valor o formato etc ....

    Sheets("lote 3").Cells("18, 1").value = Sheets("inventario").Range("A" & i).value

    Sheets("lote 3").Cells("18, 2").value = Sheets("inventario").Cells(i & ", 2").value

    Sheets("lote 3").Cells("18, 3").value = Sheets("inventario").Cells("i, 3").value

Sheets("lote 3").Cells(18, 1) = Sheets("inventario").Range("A" &  i)

Sheets("lote 3").Cells(18, 2) = Sheets("inventario").Cells( i , 2)

Sheets("lote 3").Cells(18, 3) = Sheets("inventario").Cells( i, 3)