Copiar datos de una hoja a otra, cumpliendo dos condiciones

Buenos días, como lo dice el titulo estoy atascado con una macro para copiar datos de una hoja a otra, cumpliendo dos condiciones.

La idea es buscar un dato en la primera columna, si esa condición se cumple, entonces buscar el segundo dato en la segunda columna, que se encuentra a 5 espacios de la primera, y si esto se cumple copiar los datos de una tercera columna a la hoja dos.

Esto es parte de algo mas elaborado pero no he podido salir de lo lo básico. Tengo una macro desarrollada de una pregunta que resolvió Elsa, y va asi:

Sub Tabla()
' Tabla Macro
'
FLOTA = Worksheets( Tabla ).Range( B1 )
COMPARTIMENTO = Worksheets( Tabla ).Range( B2 )
'SE ESTABLECE EL CRITERIO DE BÚSQUEDA
Worksheets( Tabla ).Range( g1 ) = FLOTA
Worksheets( Tabla ).Range( g2 ) = COMPARTIMENTO
Worksheets( TABLA ).Select
Range( A5 ).Select
FILA = 5
Set BUSCAR = Worksheets( DATOS ).Range( D2:D5000 ).Find(FLOTA, LookIn:=xlValues, LOOKAT:=xlWhole)
If Not BUSCAR Is Nothing Then
If BUSCAR.Offset(0, 5) = COMPARTIMENTO Then
BUSCAR.Offset(0, 214).Copy Destination:=Worksheets( TABLA ).Cells(FILA, 1)
End If
FILA1 = BUSCAR.Row
Do
Set BUSCAR = Worksheets( DATOS ).Range( D2:D5000 ).FindNext(BUSCAR)
If BUSCAR.Offset(0, 5) = COMPARTIMENTO Then
BUSCAR.Offset(0, 244).Copy Destination:=Worksheets( TABLA ).Cells(FILA2, 1)
Exit Do
End If
Loop While Not BUSCAR Is Nothing And BUSCAR.Row <> FILA1
End If
End Sub

Con lo desarrollado hasta ese punto me ubica el primer dato