Message box dinamico nel riassumere i dati

Sub Messaggio() 
Dim Rst As String Dim Cella As Range     
Rst = Rst & "Confermi i seguenti dati? :" & vbLf & vbLf     
Rst = Rst & "Operatore:" & " " & Sheets("Anno").Range("C3") & vbLf & vbLf     
Rst = Rst & "Sull'impianto:" & " " & Sheets("Anno").Range("B1") & vbLf     
Rst = Rst & "Hai prodotto:" & " " & Sheets("Anno").Range("B3") & vbLf & vbLf
Rst = Rst & "Nel turno:" & " " & Sheets("Anno").Range("B2") & vbLf     
Rst = Rst & "del giorno:" & " " & Sheets("Anno").Range("A3") & vbLf & vbLf 
MsgBox Rst, vbInformation + vbYesNo  
End Sub

 Private Sub Worksheet_Change(ByVal Target As Range) 
If Not Intersect(Target, Range("B:S")) Is Nothing Then     
If Target.Count > 1 Then Exit Sub     
Application.EnableEvents = False     
c = Target.Column     
r = Target.Row     
If Cells(1, c) <> "" Then         
impianto = Cells(1, c)     
Else         
impianto = Cells(1, c).End(xlToLeft).Value     
End If     
k = 0     
If c Mod 2 <> 0 Then         
If Cells(r, c - 1) <> "" And Cells(r, c) <> "" Then             
k = 1             
turno = Cells(2, c - 1)             
operatore = Cells(r, c)             
produzione = Cells(r, c - 1)         
End If     
ElseIf Cells(r, c) <> "" And Cells(r, c + 1) <> "" Then
k = 1
turno = Cells(2, c)         
operatore = Cells(r, c + 1)         
produzione = Cells(r, c)     
End If     
If k = 1 Then     
Rst = Rst & "Confermi i seguenti dati? :" & vbLf & vbLf     
Rst = Rst & "Operatore:" & " " & operatore & vbLf & vbLf     
Rst = Rst & "Sull'impianto:" & " " & impianto & vbLf     
Rst = Rst & "Hai prodotto:" & " " & produzione & vbLf & vbLf     
Rst = Rst & "Nel turno:" & " " & turno & vbLf     
Rst = Rst & "del giorno:" & " " & Cells(r, 1) & vbLf & vbLf     
MsgBox Rst, vbInformation + vbYesNo     
End If 
End If 
Application.EnableEvents = True 
End Sub