Copias data por macro con fecha fijada

hola amigo, tengo este macro ya funciona bien,

necesito modificarle algo muy pequeño,

en el hoja1(VENTAS) es donde esta la data y va copiar a la hoja2(REGISTRAR VENTAS)

paso A es la celda A5 donde es la fecha que va copiar en este caso no lo quiero que lo copia en la hoja2 desde la celda A6 hasta A36 es las fecha fijada del mes que trabajando,

es decir ya en la hoja2 ya esta fijada la fecha solo que copia la data desde la hoja1 según indica la fecha y en caso que hay data en esa fecha que indica un mensaje para confirmas si cia o no.

Sub Registrar_ventas()

'Cargamos los valores a las variables
A = Range("A6").Value ' FECHA
B = Range("A9").Value ' N. INICIAL FACTURA FISCAL
C = Range("B9").Value ' N. FINAL FACTURA FISCAL
D = Range("C9").Value ' MONTO FACTURA FISCAL
E = Range("A12").Value ' N. INICIAL NOTA CRÉDITO FISCAL
F = Range("B12").Value ' N. FINAL NOTA CRÉDITO FISCAL
G = Range("C12").Value ' MONTO NOTA CRÉDITO FISCAL
H = Range("A15").Value ' N. INICIAL FACTURA MANUAL FISCAL
I = Range("C15").Value ' N. FINAL FACTURA MANUAL FISCAL
J = Range("B15").Value ' MONTO FACTURA MANUAL
K = Range("A18").Value ' N. INICIAL NOTA CRÉDITO MANUAL
L = Range("B18").Value ' N. FINAL NOTA CRÉDITO MANUAL
M = Range("C18").Value ' MONTO NOTA CRÉDITO MANUAL
Sheets("ventas").Select
'Nos posicionamos en la primera linea vacía de la ventas

Range("a65536").End(xlUp).Offset(1, 0).Select
'Descargamos el valor de las variables en las celdas conrrespondientes

ActiveCell.Value = A ' Fecha
ActiveCell.Offset(0, 1).Value = B ' N. INICIAL FACTURA FISCAL
ActiveCell.Offset(0, 2).Value = C ' N. FINAL FACTURA FISCAL
ActiveCell.Offset(0, 3).Value = D ' MONTO FACTURA FISCAL
ActiveCell.Offset(0, 4).Value = E ' N. INICIAL NOTA CRÉDITO FISCAL
ActiveCell.Offset(0, 5).Value = F ' N. FINAL NOTA CRÉDITO FISCAL
ActiveCell.Offset(0, 6).Value = G ' MONTO NOTA CRÉDITO FISCAL
ActiveCell.Offset(0, 7).Value = H ' N. INICIAL FACTURA MANUAL FISCAL
ActiveCell.Offset(0, 8).Value = I ' N. FINAL FACTURA MANUAL FISCAL
ActiveCell.Offset(0, 9).Value = J ' MONTO FACTURA MANUAL
ActiveCell.Offset(0, 10).Value = K ' N. INICIAL NOTA CRÉDITO MANUAL
ActiveCell.Offset(0, 11).Value = L ' N. FINAL NOTA CRÉDITO MANUAL
ActiveCell.Offset(0, 12).Value = M ' MONTO NOTA CRÉDITO MANUAL

Registrar ventas.Select
Range("A6,A9,B9,C9,A12,B12,C12,A15,B15,C15,A18,C18,C18").Select
Selection.ClearContents
Range("A6").Select
MsgBox ("Sus datos se han almacenado con éxito")
End Sub