Hi Andy
change For k = 3 To 7 if u have more than 7 cols in ur data
try the below code
Sub tests()
Dim i As Long
j = 1
For i = 2 To Sheets(1).Range("a65356").End(xlUp).Row
For k = 3 To 7
Sheets(2).Cells(j, 1).Value = Sheets(1).Cells(i, 1).Value
Sheets(2).Cells(j, 2).Value = Sheets(1).Cells
Hi All,
I have a spreadsheet that contains some test results that go across
multiple columns on each row. Now these results are unique to a serial
number, however can be tested on multiple dates i.e. after software
updates etc. Therefore need to be on seperate rows. See example below:
Ser No
