Macro para copiar filas

Esta macro te copiara la fila entera, la tendrás que adaptar a tu macro ya que no la conozco, te la pase como lo hago siempre, pero como te dije tienes que adaptarla
Sub Macro1()
'
' Macro1 Macro
'
' Acceso directo: CTRL+s
'
Dim a As Integer
Dim Insertar As Integer
Insertar = 0
For a = 1 To 200
If (Range("b" + CStr(a)).Value = 1) Then
Insertar = Insertar + 1
Range(CStr(a) + ":" + CStr(a)).Select
Range(CStr(a) + ":" + CStr(a)).Copy
Sheets("hoja2").Select
Range("a" + CStr(Insertar)).PasteSpecial Paste:=xlPasteValues, operation:=xlNone, Skipblanks:=False, Transpose:=False
Sheets("hoja1").Select
End If
Fíjate que la letra b que esta en negrita es donde están los datos que estas buscando
Y el 1 es lo que va a buscar.

Buenos días, perdona pero no me ha funcionado. El script que tengo es este:
Sub buscar()
    Dim n As Range
    Set n = Cells.Find(What:="DDP")
    If n Is Nothing Then
        MsgBox "No he encontrado nada. Lo siento."
    Else
        Range(n.Address).Select
        Selection.Copy
        Range("I6").Select
        ActiveSheet.Paste
    End If
    Set n = Cells.Find(What:="Dyp_Demanda")
    If n Is Nothing Then
        MsgBox "No he encontrado nada. Lo siento."
    Else
        Range(n.Address).Select
        Selection.Copy
        Range("I7").Select
        ActiveSheet.Paste
    End If
    Set n = Cells.Find(What:="BD_Gas")
    If n Is Nothing Then
        MsgBox "No he encontrado nada. Lo siento."
    Else
        Range(n.Address).Select
        Selection.Copy
        Range("I8").Select
        ActiveSheet.Paste
    End If
    Set n = Cells.Find(What:="Dyp_Sigame")
    If n Is Nothing Then
        MsgBox "No he encontrado nada. Lo siento."
    Else
        Range(n.Address).Select
        Selection.Copy
        Range("I9").Select
        ActiveSheet.Paste
    End If
    Set n = Cells.Find(What:="Egcf_cmp")
    If n Is Nothing Then
        MsgBox "No he encontrado nada. Lo siento."
    Else
        Range(n.Address).Select
        Selection.Copy
        Range("I10").Select
        ActiveSheet.Paste
    End If
    Set n = Cells.Find(What:="BD_Internacional")
    If n Is Nothing Then
        MsgBox "No he encontrado nada. Lo siento."
    Else
        Range(n.Address).Select
        Selection.Copy
        Range("I11").Select
        ActiveSheet.Paste
    End If
    Set n = Nothing
End Sub
No sé si se puede modificar para copiar la fila entera en donde aparecen las búsquedas. Muchas gracias por adelantado.
Un saludo.

¿Me podrás mandar la planilla para verla y así corregir los errores?

Por supuesto, dime a que dirección te la mando.
Un saludo