Macro para pegar información especifica en fila de folio de una base de datos.

Hola que tal compatriotas tengo ya días buscando una macro que al momento de capturar información me la pegue en la fila de un folio ya llamado de una base base de datos, en pocas palabras que me busque el folio en la base de datos y me pegue la información que corresponde a este en la fila exacta del ese folio, tengo este código pero no se si me puede servir y si lo es así tendría modificaciones o no se los agradeceria:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

Range("B" & ActiveCell.Row).Copy _
Destination:=Workbooks("OT").Sheets("Hoja1").Range("A4")
Range("C" & ActiveCell.Row).Copy _
Destination:=Workbooks("OT").Sheets("Hoja1").Range("A6")
Range("D" & ActiveCell.Row).Copy _
Destination:=Workbooks("OT").Sheets("Hoja1").Range("B20")
Range("E" & ActiveCell.Row).Copy _
Destination:=Workbooks("OT").Sheets("Hoja1").Range("F5")
Range("F" & ActiveCell.Row).Copy _
Destination:=Workbooks("OT").Sheets("Hoja1").Range("D6")