I am trying to use the more efficient way to copy and paste values using a looping macro. The code below doesn't seem to be doing what I want it to. I don't get an error with the line of code below, yet when I run the macro, it doesn't paste my values at all.
Range("Land_Paste").Offset(Macro, 0).Value = Range("Land_Copy")
Here is my entire Macro:
Dim Macro As Integer
Dim A As Integer
Dim B As Integer
A = Range("Macro_Start")
B = Range("Macro_End")
For Macro = A To B Step 1
Range("Macro_No").Value = Macro
Range("Min_Delta").GoalSeek Goal:=0, ChangingCell:=Range("Land_Value")
Range("Land_Paste").Offset(Macro, 0).Value = Range("Land_Copy")
Next Macro
Any help would be much appreciated!!!! Thanks in advance.
Chet
Range("Land_Paste").Offset(Macro, 0).Value = Range("Land_Copy")
Here is my entire Macro:
Dim Macro As Integer
Dim A As Integer
Dim B As Integer
A = Range("Macro_Start")
B = Range("Macro_End")
For Macro = A To B Step 1
Range("Macro_No").Value = Macro
Range("Min_Delta").GoalSeek Goal:=0, ChangingCell:=Range("Land_Value")
Range("Land_Paste").Offset(Macro, 0).Value = Range("Land_Copy")
Next Macro
Any help would be much appreciated!!!! Thanks in advance.
Chet