LinkBack URL
About LinkBacks
Try this.
Sub CopyBlock() Dim rngSrc As Range Set rngSrc = Range("A2", Range("G" & Rows.Count).End(xlUp)) rngSrc.copy rngSrc.Offset(rngSrc.Rows.Count).Resize(rngSrc.Rows.Count * Range("L1").Value) End Sub
Try this.
Sub CopyBlock() Dim rngSrc As Range Set rngSrc = Range("A2", Range("G" & Rows.Count).End(xlUp)) rngSrc.copy rngSrc.Offset(rngSrc.Rows.Count).Resize(rngSrc.Rows.Count * Range("L1").Value) End Sub
If posting code please use code tags, see here.
Thank you both Norie and kvsrinivasamurthy for your responses. Norie your code works exactly how I need! Thank you so muchI was also able to apply it to a single column of data on another sheet in the same book where I need it to do the exact same thing.
There are currently 1 users browsing this thread. (0 members and 1 guests)
Posting Permissions
Register To Reply
Bookmarks