Copiar rango desde otro libro

Hola Expertos, les cuento mi problema, todos los días me llegan tres informes, de los cuales me interesa un rango en especial y la fecha, luego de este rango que se copia a otro libro selecciono las filas que en una de sus celdas dice "critico", en resumen necesito, una macros en el libro2 que copieen la primera fila vacíala fecha (celda c3) y un rango (a10:J20) de la hoja1 del libro1, ademas que haga que en la primera fila de la vacía hoja2 del libro2 se copien las filas que en la celda de la columna "J" diga "Critico", yo creo que estos datos debería tomarlos desde el libro1, de los datos originales, porque si los toma de la hoja1 del libro2 me repetirá los datos anteriores..

esto es lo que llevo y no se como continuar a si voy bien encaminado, soy nuevo en esto de las macros.

Sub GetData()
 Dim resumenWorksheet As Worksheet
 Dim dataWorkbook As Workbook
 Dim dataRange As Range
 Dim strFile As String
 Dim strFecha As String
 Set resumenWorksheet = ThisWorkbook.Worksheets(1)
 With Application.FileDialog(1) ' msoFileDialogOpen
 .Filters.Clear
 .Filters.Add "Excel workbooks", "*.xls;*.xlsx;*.xlsb;*.xlsm"
 .InitialFileName = ""
 If .Show Then
 strFile = .SelectedItems(1)
 Else
 MsgBox "No se ha seleccionado un archivo", vbCritical
 Exit Sub
 End If
 End With
 Application.ScreenUpdating = False
 Set dataWorkbook = Workbooks.Open(Filename:=strFile, ReadOnly:=True)
 strFecha = InputBox("Ingrese Fecha", "Fecha", Date)
 dataWorkbook.Close (False)
 Dim n As Integer
 n = ActiveSheet.UsedRange.Rows.Count + 1
 MsgBox "A" & n
 Application.ScreenUpdating = True
End Sub

Gracias.