Excel - Copiar celdas especificas de una hoja a otra con una macro

Public Function UltimaFila(NombreHoja As String) As Long

'       Esta función obtiene la Última Fila utilizada en una Hoja Especificada

'

'       Esta función busca la primera celda utilizada desde el final de la hoja

'       Utilizando la instrucción "Cells.Find". por filas y moviendose desde el Fondo Hasta el inicio

'   Parámetros:

'       NombreHoja            = Hoja en la cual se va a determinar la Última Fila no utilizada. _

                                         Es Obligatoria.. Puede tener una o varias celdas en blanco

'

'       Autor:                  Ing. Ricardo J. Rodríguez P.(MSc)

'                                  Caracas. Venezuela. América del Sur

'       Fecha de elaboración:   27/08/2003

'       Última Actualización:   14/11/2012              '   Cambio de Algoritmo de búsqueda

On Error Resume Next

    UltimaFila = Sheets(NombreHoja).Cells.Find("*", SearchOrder:=xlByRows, _

                                                    SearchDirection:=xlPrevious).Row

End Function

Sub addfilas()

'

' addfilas Macro

' Codigo para  agregar filas

'

'

'

' este ciclo controlara las cantidades de codigo hasta el 64

Dim x As Integer

Dim y As Integer

Dim conta As Integer

'conta = 10

Dim indice As Integer

   For i = 3 To 57                              ' aqui recorro el ciclo de las dos hojas de lahoja 2 y hoja 5.

   Sheets("hoja2").Select

   x = Cells(i, 1)

   Sheets("hoja5").Select

   y = Cells(i, 1)

    If x <> y Then

    MsgBox "prueba"

    Sheets("hoja5").Select

    indice = x

    ActiveSheet.Cells(i, 1).Select

    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

    ActiveCell.FormulaR1C1 = indice

    End If

    Next i

    Exit Sub

End Sub

Sub Macro5()

'Roxy Sivada

 '   Sheets("GRAFICOS").Select

 '   dia_inicio = Cells(1, 4)

 '   dia_fin = Cells(2, 4)

  '  inicio = 4 + Day(dia_inicio)

 '   fin = 4 + Day(dia_fin)

 '

 '

 ' Dim NF, Fila As Double

 '   Sheets("GRAFICOS").Select

 '   Fila = InputBox("Escriba el Numero de Filas a insertar: ")

 '   NF = Hoja8.Range("A8").End(xlDown).Row + 1

 '   If NF > 50000 Then NF = 8

 '   Sheets("DATA").Select

 '   Range("A8:AY8").Select

 '   Selection.copy

 '   Sheets("GRAFICOS").Select

 '   Range("A" & NF + Fila).Select

 '   Range("A" & NF & ":AY" & NF + Fila).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

   '     :=False, Transpose:=False

 'End sub

Sub macro2()

' Macro2 Macro

Sheets("RESUMEN ANALISIS TECNICA").Select

Range("DATOS").Select

Selection.Copy

Sheets("ANALISIS TECNICA").Select

Range("B11").Select

Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=True, Transpose:=True

End Sub

Sub Abrirarchivos()

Dim archivos As String

archivos = Dir("C:\Users\Jose Valle\Desktop\WM\*.xlsx")

Do While archivos <> ""

Workbooks.Open "C:\Users\Jose Valle\Desktop\WM\" & archivos

Range("a1:AU32").Copy

MsgBox ActiveWorkbook.Name

ActiveWorkbook.Close savechanges:=True

archivos = Dir

Loop

End Sub

Sub Abrirarchivospegar()

Dim archivos As String

archivos = Dir("C:\Users\Jose Valle\Desktop\WM\*.xlsx")

Do While archivos <> ""

Workbooks.Open "C:\Users\Jose Valle\Desktop\WM\" & archivos

Range("a1:AU32").Copy

MsgBox ActiveWorkbook.Name

ActiveWorkbook.Close savechanges:=True

Windows("Ordenes.xlsm").Activate

Range("A1").End(xlDown).Offset(1, 0).Select

ActiveSheet.Paste

archivos = Dir

Loop

End Sub

Sub Copiar_Datos()

'

' Copiar_Datos Macro

'

'

    Range("F4:F35").Select

    Selection.Copy

    Sheets("Reporte").Select

    Range("H4:H35").Select

    ActiveSheet.Paste

    Sheets("Data Collection Modelo 01").Select

    ActiveWindow.SmallScroll Down:=-24

    Range("E1:F1").Select

    Application.CutCopyMode = False

    Selection.Copy

    Sheets("Reporte").Select

    Range("G1:H1").Select

    ActiveSheet.Paste

    Sheets("Data Collection Modelo 01").Select

    Range("E2").Select

    Selection.End(xlToRight).Select

    Range("E2:F2").Select

    Application.CutCopyMode = False

    Selection.Copy

    Sheets("Reporte").Select

    Range("G2:H2").Select

    ActiveSheet.Paste

    Sheets("Data Collection Modelo 01").Select

    Range("H1").Select

    Application.CutCopyMode = False

    Selection.Copy

    Sheets("Reporte").Select

    Range("J1").Select

    ActiveSheet.Paste

    Range("J2").Select

    Sheets("Data Collection Modelo 01").Select

    Range("H2").Select

    Application.CutCopyMode = False

    Selection.Copy

    Sheets("Reporte").Select

    ActiveSheet.Paste

    Sheets("Data Collection Modelo 01").Select

    Application.CutCopyMode = False

End Sub