Get more info about an IP address or domain name, such as organization, abuse contacts and geolocation.
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 ee26208387() Application.ScreenUpdating = False Application.EnableEvents = False Dim wsFrom As Worksheet Dim wsTo As Worksheet Dim rFrom As Range Dim rTo As Range Set wsFrom = Sheets("Source") Set wsTo = Sheets("Sheet2") Set rFrom = wsFrom.Range("A2") Set rTo = wsTo.Range("A7") While rFrom <> "" rFrom.Resize(, 6).Copy rTo rFrom.Resize(, 6).Copy rTo.PasteSpecial xlPasteValues rFrom.Offset(3, 4).Resize(, 13).Copy rTo.Offset(, 6) Set rFrom = rFrom.Offset(5) Set rTo = rTo.Offset(1) Wend Application.EnableEvents = True Application.ScreenUpdating = True Application.ScreenUpdating = False Call Headers Call Checkbox_Data Application.ScreenUpdating = True 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.