Macro para copiar celdas especificas

Saludos Elsa, disculpa tanta molestia, quisiera saber si con la macro que me enviaste se pueden copiar solo ciertas celdas, ej. A1, c5, h4, a otra hoja del mismo libro, gracias. Joshua
Sub cargar_asiento()
Dim NRO_ASIENTO
' Consistencia de la carga
If Range("H18") = "Asiento Correcto" Then
' COPIANDO CARGA DE DATOS DE ASIENTO
Range("a5:h14").Select
Selection.Copy
' UBICARSE AL FINAL DE LA BASE DE ASIENTOS
Sheets("Hoja2").Select
ActiveSheet.Range("b5000").Select
Selection.End(xlUp).Select      'aparecía como x1Up
Selection.Offset(1, -1).Select
' PEGAR DATOS ASIENTOS
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False     'x1Values, x1None, Traspose
' INICIO
Application.CutCopyMode = False    'aparecía como Aplication
'volver a la hoja de inicio
Sheets("Hoja1").select
ActiveSheet.Range("b5").Select
' MENSAJE INDICANDO NUMERO DE ASIENTO
NRO_ASIENTO = Range("a5").Value
MsgBox ("Se ha contabilizado el asiento número" & NRO_ASIENTO)
' NUMERAR ASIENTO
Range("g5:h14,b5:d14").Select
Selection.ClearContents
Range("b5").Select
Else
MsgBox ("Existen errores en la carga del asiento, por favor verificar")
End If
End Sub