Ei onnistu makro

Miksi? Vasemmassa kuvassa tiedot näyttävät olevan hyvässä järjestyksessä.

noduuliin...

Sub Muokkaa()
Dim vika As Long
Dim vika2 As Long
On Error Resume Next
Application.ScreenUpdating = False
Worksheets("Sheet2").Range("A:B") = ""
vika = Worksheets("Sheet1").Range("A65536").End(xlUp).Row
For i = 1 To vika - 1
vika2 = Worksheets("Sheet2").Range("A65536").End(xlUp).Row 1
Worksheets("Sheet1").Range("A1:E1").Copy
Worksheets("Sheet2").Range("A" & vika2).PasteSpecial Transpose:=True
Worksheets("Sheet1").Range("A" & i 1 & ":E" & i 1).Copy
Worksheets("Sheet2").Range("B" & vika2).PasteSpecial Transpose:=True
Next
Application.ScreenUpdating = True
Application.CutCopyMode = False
Worksheets("Sheet2").Activate
Range("A1").Select
Rows("1:1").Delete
Range("A1").Select
End Sub

miittele nimet ja alueet sopiviksi sopivaksi

Keep EXCELing
@Kunde