Hi there,
Try a macro like this, it should get the job done
Sub format()
Dim r, c As Integer
r = 1
c = 1
For i = 2 To Range("A1048576").End(xlUp).Row
Worksheets("ServerOverView").Cells(r, c).Value = Range("C" & i).Value
Worksheets("ServerOverView").Cells(r + 1, c).Value = Range("B" & i).Value
Worksheets("ServerOverView").Cells(r + 2, c).Value = Range("A" & i).Value
c = c + 1
If c > 4 Then
c = 1
Worksheets("ServerOverView").Rows(r & ":" & r + 2).Copy
Worksheets("ServerOverView").Rows(r + 3 & ":" & r + 5).PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
r = r + 3
End If
Next i
End Sub
Bookmarks