msgBox не отображается на успешном результате

Question

У меня есть следующее, чтобы скопировать список и вставить в лист (данные). Я хочу, чтобы оно отображало сообщение, когда оно было успешным, и сообщив, в какой строке он начал вставлять. Однако вместо этого отображается errmsg.

Заранее спасибо

Dim current As String 
    current = ActiveCell.Index 
    MsgBox current & "pasted there" 

    Exit Sub 
errmsg: 
    MsgBox "failed to copy." 
End Sub 

полный код

Sub move() 
    Range("A3:B3").Select 
    Range(Selection, Selection.End(xlDown)).Select 
    Selection.Copy 
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ 
     :=False, Transpose:=False 

    Range("K3").Select 
    Range(Selection, Selection.End(xlDown)).Select 
    Selection.Copy 
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ 
     :=False, Transpose:=False 

    Range("F3:I3").Select 
    Range(Selection, Selection.End(xlDown)).Select 
    Application.CutCopyMode = False 
    Selection.Delete Shift:=xlToLeft 

    Range("F3").Select 
    Range(Selection, Selection.End(xlDown)).Select 
    Application.CutCopyMode = False 
    Selection.Delete Shift:=xlToLeft 

    Range("A3:G3").Select 
    Range(Selection, Selection.End(xlDown)).Select 
    Selection.Copy 

    On Error GoTo errmsg 
    Sheets("data").Select 
    Range("A1").Select 
    Selection.End(xlDown).Offset(1, 0).Select 
    Selection.PasteSpecial Paste:=xlPasteValues 
    Dim current As String 
    current = ActiveCell.Index 
    MsgBox current & "pasted there" 

    Exit Sub 
errmsg: 
    MsgBox "failed to copy." 
End Sub 

Answer 1

Добро пожаловать на SO :) Один из способов, чтобы попытаться отладки это было бы удалить/закомментировать в "On Error GoTo", затем запустите код. Это должно показать вам, какая строка генерирует ошибку. Тем не менее, я подозреваю, что вы хотите, чтобы current = ActiveCell.Index был current = ActiveCell.Address.