Need to edge out the competition for your dream job? Train for certifications today.
Be seen. Boost your question’s priority for more expert views and faster solutions
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
Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.
Have a better answer? Share it in a comment.
Please enter a first name
Please enter a last name
Must be at least 4 characters long.
Join and Comment
From novice to tech pro — start learning today.
Premium members can enroll in this course at no extra cost.