Free for PREMIUM members
Want to avoid the missteps to gaining all the benefits of the cloud? Learn more about the different assessment options from our Cloud Advisory team.
Dim ws As Worksheet
Set ws = ThisWorkbook.Worksheets("Sheet1")
Dim lr As Long
Dim moveRange As Range
Dim i As Integer
lr = ws.UsedRange.Rows.Count
Set moveRange = ws.Range("D1:D" & lr)
For i = 1 To 7
Open in new window
Add Premium security features to your question to ensure its privacy or anonymity. Learn more about your ability to control Question Security today.