To create: Dev –> Visual Basic
To use: Dev –> Macro

Sub Fornitori()

Sheets(1).Select

Range("G5").Select
Selection.Offset(0, 0).Value = Selection.Offset(1, -5).Value
Selection.Offset(0, 1).Value = Selection.Offset(1, -4).Value
Selection.Offset(0, 2).Value = Selection.Offset(1, -3).Value
Selection.Offset(0, 3).Value = Selection.Offset(1, -2).Value
Selection.Offset(0, 4).Value = Selection.Offset(1, -1).Value

Range("G6").Select
Selection.EntireRow.Delete

Range("G6").Select

Do Until Selection.Offset(0, -6).Value = "prova"
If Selection.Offset(0, -6).Value <> "---" Then
Selection.Offset(0, 0).Value = Selection.Offset(1, -5).Value
Selection.Offset(0, 1).Value = Selection.Offset(1, -4).Value
Selection.Offset(0, 2).Value = Selection.Offset(1, -3).Value
Selection.Offset(0, 3).Value = Selection.Offset(1, -2).Value
Selection.Offset(0, 4).Value = Selection.Offset(1, -1).Value
Selection.Offset(1, 0).Select
Else
Selection.EntireRow.Delete
End If

Loop

End Sub