Free for PREMIUM members
[Last Call] Learn how to a build a cloud-first strategyRegister Now
Veeam Explorer for Microsoft Active Directory provides fast and reliable object-level recovery for Active Directory from a single-pass, agentless backup or storage snapshot — without the need to restore an entire virtual machine or use third-party tools.
Dim ws As Worksheet, ws1 As Worksheet
Dim i As Long, wslastrow As Long, ws1lastrow As Long
Dim r As Long, R1 As Long, R2 As Long
Set ws = Sheets("tblTdaz")
Set ws1 = Sheets.Add
ws1.Name = "Output"
For i = 1 To 6
.Cells(1, i) = ws.Cells(1, i)
ws1.Cells(1, 7) = "SN"
wslastrow = ws.Range("A" & Rows.Count).End(xlUp).Row
ws1lastrow = ws1.Range("A" & Rows.Count).End(xlUp).Row + 1
For i = 2 To wslastrow
ws.Range("A" & i & ":F" & i).Copy ws1.Range("A" & ws1lastrow)
ws.Range("G" & i & ":CH" & i).Copy
ws1.Range("G" & ws1lastrow).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
R1 = ws1.Range("F" & Rows.Count).End(xlUp).Row
R2 = ws1.Range("G" & Rows.Count).End(xlUp).Row
r = R2
ws1.Range("A" & R1 & ":F" & R1).Copy ws1.Range("A" & R1 + 1 & ":F" & r)
If R1 > R2 Then r = R1 Else r = R2
ws1lastrow = r + 1
Open in new window
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.