With Experts Exchange’s latest app release, you can now experience our most recent features, updates, and the same community interface while on-the-go. Download our latest app release at the Android or Apple stores today!
Function CopyFunction() Dim lEndRow As Long, lStartRow As Long Dim num1 As Integer, num2 As Integer '1st row starts from 3 lStartRow = 3 'last row = grand total and its not included lEndRow = (Sheets("Pivots").Range("A" & Sheets("Pivots").Rows.Count).End(xlUp).Row) - 1 'First loop assingment For num1 = lStartRow To lEndRow 'Second loop assignment For num2 = lStartRow To lEndRow Next Next MsgBox lEndRow End Function
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.