Generador de etiquetas en Excel

Tengo una macro para generar etiquetas en Excel. Y es:

Sub generar()

Hoja3.Columns("A:O").Delete

fin = Hoja1.Range("B65536").End(xlUp).Row
Hoja1.Range("B2").Select

For y = 0 To Int((fin - 1) / 3)
For k = 0 To 2

Hoja2.Range("A4").Value = "'" & Format(ActiveCell.Value, "00000")

Hoja2.Range("A1:E5").Copy Destination:=Hoja3.Cells((5 * y) + 1, (5 * k) + 1)

ActiveCell.Offset(1, 0).Select
If ActiveCell.Value = "" Then End

Next k
Next y

End Sub
La macro envía la información de la COLUMNA B de la HOJA 1 a la CELDA A4 de la HOJA 2.
Lo que se requiere es que además envie la información de la COLUMNA C de la HOJA 1 a la CELDA A5 de la HOJA 2.