Visual Basic para Aplicaciones - Copiar y pegar Datos entre hojas

Sub asd()

'

' asd Macro

'

'

    Range("A6:I8").Select

    Range("I6").Activate

    Selection.Copy

    Sheets("ACTION LOG").Select

    Rows("3:3").Select

    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

        :=False, Transpose:=False

    Sheets("Monitoreo").Select

    Range("B10:I12").Select

    Application.CutCopyMode = False

    Selection.Copy

    Sheets("ACTION LOG").Select

    Range("A6").Select

    Sheets("Monitoreo").Select

    Range("A10:I12").Select

    Range("I12").Activate

    Application.CutCopyMode = False

    Selection.Copy

    Sheets("ACTION LOG").Select

    Range("A6").Select

    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

        :=False, Transpose:=False

    Sheets("Monitoreo").Select

    Range("A14:I32").Select

    Range("I32").Activate

    Application.CutCopyMode = False

    Selection.Copy

    Sheets("ACTION LOG").Select

    Range("A9").Select

    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

        :=False, Transpose:=False

    Range("J12").Select

End Sub

Sub copiar()

    Dim ultFila As Long

    Dim celdas As String

    If Sheets("Hoja2").Range("A1") = "" Then

        ultFila = 1 'aqui se indica que si la primer columna donde queremos que se empiece a copiar esta en blanco la ultima fila

                    'sera dicha celda

    Else

        ultFila = Sheets("Hoja2").Range("A" & Rows.Count).End(xlUp).Row + 1 'aqui si la primer fila esta ocupada recorrera todos los datos

                                                                        'hasta encontrar el ultimo y le sumamos una celda para que no

                                                                        'sobreescriba el ultimo registro traido con anterioridad

    End If

    celdas = Sheets("Hoja1").Range("F1") 'aqui se le indica cual sera el rango de celdas a copiar y en que celda se encuentra

                                         'dicho dato

    Sheets("Hoja1").Range(celdas).Copy 'aqui copia el rango de celdas establecido

    Sheets("Hoja2").Activate 'aqui se activa la hoja donde se pegaran los datos

    Sheets("Hoja2").Range("A" & ultFila).Select 'aqui se indica a partir de que fila o celda se pegaran los datos

    Hoja2.Range("A" & ultFila).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

        :=False, Transpose:=False 'aqui se le indica que solo pegue los valores de las seldas copiadas

    Sheets("Hoja1").Activate 'aqui se activa la hoja origen para la proxima operacion

    Application.CutCopyMode = False 'aqui se indica que olvide el rango copiado anteriormente

End Sub