Insertar Celdas seleccionadas de una hoja a otra por medio de una macro, pero que no se repitan

Muy buenos días expertos espero se encuentren muy bien el dia de hoy.

Tengo un problema con una macro y es que tengo la que tengo diseñada para que esta recorra una columna especifica y que si encuentra datos en cualquier celda de esa columna, coja esta fila y la inserte entera en otra hoja especifica. El problema radica en que la macro inserta en la otra hoja todas aquellas filas que tengan datos en la determinada columna, pero si yo ejecuto la macro varias veces esta inserta repetidamente las mismas celdas, y lo que deseo es que si ejecuto la macro nuevamente solo incluya las filas nuevas o las que no estén repetidas.

Dejo aquí la macro que tengo para ver si me pueden ayudar a modificarla para que solo me inserte las filas que sean nuevas o diferentes a las filas que ya había insertado en primera instancia. Muy agradecido con ustedes y les deseo un buen dia.

Sub Macro4()
For Each hoja In ActiveWorkbook.Sheets
Application.ScreenUpdating = False
If hoja.Name <> "Pedido General" Then
hoja.Select
Range("g10").Select
Do While ActiveCell.Row <> 271
If ActiveCell.Value <> "" Then
ActiveCell.EntireRow.Copy Destination:=Sheets("Pedido General").Range("a65000").End(xlUp).Offset(1, 0)
End If
ActiveCell.Offset(1, 0).Select
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Loop
End If
Next
Sheets("Pedido General").Select
End Sub

Añade tu respuesta

Haz clic para o