Estaba intentado hacer una macro que, en base a la cantidad de celdas que superen el valor de 25, me añada filas tantas veces como eso suceda en otra hoja y posteriormente me copie otros valores que aparecen en celdas adyacentes y se ponga en la última fila. Mi problema es que en vez de la última fila se copia a celdas que no quiero que vaya. También necesito copiar el formato de la fila superior ya que es una tabla.
Dim numero As String
Dim NumFila As String
Range("A7").End(xlDown).Select
numero = 7
NumFila = ActiveCell.Row
Do Until NumFila = numero + 1
On Error Resume Next
If Worksheets("Realizar pedido").Range("F" & numero).Value >= 25 Then
Worksheets("Hoja1").Range("A8").EntireRow.Insert Shift:=xlShiftAbove
Worksheets("Realizar pedido").Range("B" & numero).Copy
Worksheets("Hoja1").Range("D" & numero).PasteSpecial xlPasteValuesAndNumberFormats
End If
numero = numero + 1
Loop
End Sub
¿Alguien me echa una mano con esto? Cabe destacar que soy nuevo en esto y no tengo conocimientos en programación.