Kopi af data

Sub CopyFilter_A()
    Dim r, r2, d As Range
    Dim n As Long
    Dim cYear, cStatus, cPage, cPrice, cSeasonType
    Dim tStatus As String
    cYear = 2
    cStatus = 13
    cPage = 3
    cPrice = 11
    cSeasonType = 12
    tStatus = "Fortsat i 2014"
   
    On Error Resume Next
        With ActiveSheet.AutoFilter.Range
            Set r2 = .Offset(1, 0).Resize(.Rows.Count - 1, 1).SpecialCells(xlCellTypeVisible)
            n = .Columns(1).SpecialCells(xlCellTypeVisible).Count - 1
        End With
    On Error GoTo 0

    If r2 Is Nothing Then
        MsgBox "Ingen husdate data valgt !!!"
    Else
        'MsgBox n
        Set r = ActiveSheet.AutoFilter.Range
        Set d = r.Offset(r.Rows.Count, 0).Cells(1, 1)
        r.Offset(1, 0).Resize(r.Rows.Count - 1).Copy Destination:=d
       
        r.Offset(1, 0).Resize(r.Rows.Count - 1).Interior.ColorIndex = 15  'New
        d.Offset(0, cYear).Resize(n).Value = 2014
        d.Offset(0, cStatus).Resize(n).Value = tStatus
        d.Offset(0, cPage).Resize(n).Clear
        d.Offset(0, cPrice).Resize(n).Clear
       
        d.Offset(0, cSeasonType).Resize(n).Value = "A"
        d.Offset(1, cSeasonType).Resize(n).Value = "B"
        d.Offset(2, cSeasonType).Resize(n).Value = "C"
        d.Offset(3, cSeasonType).Resize(n).Value = "D"
        d.Offset(4, cSeasonType).Resize(n).Value = "E"
        d.Offset(5, cSeasonType).Resize(n).Value = "F"
       
        Application.ScreenUpdating = False
            Columns("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
        Application.ScreenUpdating = True
       
    End If
   
    [Button 3].Enabled = False
        [Button 3].Visible = False

End Sub

Ovenstående kode kopierer indhold fra udklipsholder ( ialt 6 linier ) til næste blanke linie i mit regneark ... dette er tilfældet i 9 ud af 10 gange en bruger skal bruge funktionen ... men den 10'ende gang skal der tilfæjes en ekstra linie hvor indholdet er identisk med den indkopierede linie 6, med den undtagelse at den 7´ende linie skal have denne værdi :

d.Offset(6, cSeasonType).Resize(n).Value = "G"

Hvordan ser hele koden ud i en Sub CopyFilter_B() version ???