statt Name , den user

Hallo zusammen,
kann man diesen Code den Excel user zeigen lassen:

Sub lol()
Dim naechste As Long
Dim wks2 As Worksheet
Set wks2 = Worksheets("protokoll")
If ActiveCell.Column = 4 Then
If MsgBox("Soll es verschieben?", vbQuestion + vbYesNo, "Nachfrage") _
= vbYes Then
With Worksheets("W")
naechste = .Cells(Rows.Count, 1).End(xlUp).Row + 1
.Cells(naechste, 1) = "Name"
.Cells(naechste, 2) = ActiveCell
.Cells(naechste, 3) = ActiveCell.Offset(, 1)
.Cells(naechste, 4) = Application.InputBox("Was ist ?", "Grund")
.Cells(naechste, 5) = Date
.Cells(naechste, 6) = "In Arbeit"
'wks2.Unprotect "2510"
.Cells(naechste, 1).Resize(1, 5).Copy wks2.Cells(wks2.Cells(Rows.Count, 1).End(xlUp) _
_
.Row + 1, 1)
'wks2.Protect "2510"
End With
With ActiveCell.Resize(1, 1).Font
.Bold = True
.Size = 12
.Color = vbRed
End With
End If
End If
'Range("D2:E27").Select
'With Selection.Interior
'.Pattern = xlSolid
' .PatternColorIndex = xlAutomatic
'.Color = 49407
'.TintAndShade = 0
'.PatternTintAndShade = 0
'End With
Range("B2").Select
End Sub