I am hoping someone can tell me what I have missed in the macro. I want it to loop through each row in Col D and if it is not blank, copy and paste special Cols A & B to remove their formulas. The macro changes the Cols A & B in the first row and then saves the sheet and stops. I am very new to this so it is probably an easy fix
Thank

Range("D11").Selec
Selection.AutoFilte
ActiveCell.Offset(1, 0).Selec
Dim R As Objec
For Each R In Range("D11"
If R.Value ("") The
Selection.End(xlToLeft).Selec
ActiveCell.Offset(0, -1).Range("1:1").Selec
Selection.Cop
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=
False, Transpose:=Fals
End I
Next
Application.CutCopyMode = Fals
Range("A11").Selec
Selection.AutoFilte
ActiveWorkbook.Sav
End Sub