运行时错误`13´类型不匹配，将数据从一张纸移动到另一张纸

Question

错误是：

  

错误：无效的外部程序

代码：

Sub MyProcedure()
a = Worksheets("ark1").Cells(Rows.Count, 1).End(xlUp).Row

MsgBox (a)

End Sub

我的第一个工作表称为Ark2，而更新后的工作表称为Ark1。我想移动的第一行是一个字符串，称为“nøgletal”，我的另一列称为år，它是整数。我想将所有日期从c2到c16以及b2到b16范围内的单元格移动到另一张纸上。

我现在在第4行出现错误“nøgletal= Range（“ B2：B16”）“

Private Sub CommandButton1_Click()
Dim nøgletal As String, år As Integer
    Worksheets("Ark2").Select
    nøgletal = Range("B2:B16")
    år = Range("C2:C16")
    Worksheets("Ark1").Select
    Worksheets("Ark1").Range("A4").Select
    If Worksheets("Ark1").Range("A4").Offset(1, 0) <> "" Then
    Worksheets("Ark1").Range("A4").End(xlDown).Select
    End If
    ActiveCell.Offset(1, 0).Select
    ActiveCell.Value = nøgletal
    ActiveCell.Offset(0, 1).Select
    ActiveCell.Value = år
    Worksheets("Ark2").Select
    Worksheets("Ark2").Range("B2", "B16").Select


End Sub