I would change the code like this:
Sub test()
Dim i As Integer
Dim n As Integer
Dim ws1 As Worksheet
Dim ws2 As Worksheet
Set ws1 = Worksheets("Sheet1")
Set ws2 = Worksheets("Sheet2")
'Cycles through the codes in sheet 1
For i = 2 To ws1.Cells(ws1.Rows.Count, 1).End(xlUp).row Step 1
For n = 2 To ws2.Cells(ws2.Rows.Count, 1).End(xlUp).row Step 1
If ws1.Cells(i, 1).Value = ws2.Cells(n, 1).Value Then
ws1.Cells(i, 2).Value = ws2.Cells(n, 2).Value
ws1.Cells(i, 3).Value = ws2.Cells(n, 3).Value
ws1.Cells(i, 4).Value = ws2.Cells(n, 4).Value
ws1.Cells(i, 5).Value = ws2.Cells(n, 5).Value
ws1.Cells(i, 6).Value = ws2.Cells(n, 6).Value
ws1.Cells(i, 7).Value = ws2.Cells(n, 7).Value
ws1.Cells(i, 8).Value = ws2.Cells(n, 8).Value
End If
Next n
Next i
End Sub