All sorts of threat intelligence is available on the web. Intelligence you can learn from, and use to anticipate and prepare for future attacks.
Sub Aggregate() Application.ScreenUpdating = False Workbooks.Open Filename:= _ "H:\Depts\css\A_ILS & Reliability\Reliability\1-CURRENT\System Reporting\SDAE\JAL\3_Working Files\SourceFiles\JAL SourceFile 2011 Week 01.xls" Dim top As Range, btm As Range, rng As Range Set top = [A6] Set btm = top.End(xlDown) Set rng = Range(top, btm).EntireRow rng.Copy ThisWorkbook.Activate Dim top2 As Range Set top2 = [A4].End(xlDown).Offset(1, 0) top2.PasteSpecial Paste:=xlPasteValues Application.CutCopyMode = False ActiveWindow.ActivateNext ActiveWorkbook.Close Application.ScreenUpdating = True End Sub
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
17 Experts available now in Live!