Saturday, April 20, 2019

To drag data

To drag data

Sub drag()
 Range("b3").Select
    Selection.AutoFill Destination:=Range("b3:b500")
end sub

No comments:

Post a Comment