Helpful to verify reports of your own downtime, or to double check a downed website you are trying to access.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
Sub DetailCalculations() Dim wkmc As Worksheet, wkss As Worksheet Dim rngLast As Range, rng As Range Dim lrow As Long, lastrow As Long, endrow As Long, endtbl As Range Set wkmc = Worksheets("ModelCalculations") Set wkss = Worksheets("Menu Detail Data") Set rngLast = wkmc.Range("A1").End(xlDown) lrow = rngLast.Row lastrow = lrow + 1 endtbl = lastrow + 9 endrow = wkss.Range("A9").SpecialCells(xlCellTypeLastCell).Row wkss.Range(Cells(9, 1), Cells(endrow, 20)).Clear wkmc.Range("A1", wkmc.Cells(lastrow, 20)).Copy With wkss.Range("A9") .PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False .PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False end with wkss.scrollarea = wkss.Range(Cells(1,1), Cells(endtbl, 20)) End Sub
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.