ændring i formel:

Jeg anvender følgende formel v. en knap:

Sub Knap4_Klik()
      Application.ScreenUpdating = False
    a = Sheets(1).Range("D6:F6").Value
    If IsEmpty(Sheets(2).Range("D9")) Then
        Sheets(2).Range("D9:F9").Value = a
    Else
        rk = Sheets(2).Cells(65500, "D").End(xlUp).Row + 1
        Sheets(2).Range("D" & rk & ":F" & rk) = a
    End If
    Application.ScreenUpdating = True
    [D6:F6] = ""

Nu ønsker jeg at den i stedet for flytter data over til ...\mappe2.xls i stedet for bare til ark2.

Hvad skal jeg ændre??

Påforhånd tak..