Continuo a ricevere l'errore alla mia dichiarazione if, non sono del tutto sicuro di ciò che sto facendo di sbagliato, qualsiasi aiuto con questo sarebbe molto apprezzato.
lr = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To lr
DynamicLR = Sheets("RA Inventory").Cells(Rows.Count, 1).End(xlUp).Row
'If Application.WorksheetFunction.IsNumeric(Application.WorksheetFunction.Match(ActiveSheet.Range("D" & i), Sheets("RA Inventory").Range("D2:D" & DynamicLR), 0)) = False Then
If Application.WorksheetFunction.IfError(Application.WorksheetFunction.IsNumber(Application.WorksheetFunction.Match(ActiveSheet.Range("D" & i), Sheets("RA Inventory").Range("D:D").Select, 0)), False) = False Then
ActiveSheet.Range("A" & i).Select
Selection.Copy
Worksheets("RA Inventory").Activate
ActiveSheet.Range("A" & DynamicLR).Select
ActiveSheet.Paste
Grazie