kopieeren via macro probleem

[peng]

goeie middag helpmijers ben ik weer

heb me bestandje zo goed als af, maar ik zit nu met 1 probleem als ik op de "verzamelknop" druk dan kopieert hij alle cellen dus ook de lege ( er staat nog een formule in)

hoe krijg ik het voor elkaar om alleen de visueele uitkomsten te kopieren

 

[snb]

specialcells(xlcelltypeconstants)

 

[peng]

en waar moet ik die hier dan tussen zetten

Sub TotaalBlad()

    Worksheets.Add before:=Sheets(1)
    Sheets(1).Name = "TOTAAL"
    
    For i = 2 To Sheets.Count
        With Sheets(i)
            .Range("A2:G2" & .Range("A" & Cells.Rows.Count).End(xlUp).Row).Copy _
                Sheets(1).Range(Cells(Rows.Count, 1).End(xlUp).Offset(IIf(Sheets(i).Index = 2, 0, 1)).Address)
        End With
      
        
        Next i
        
    End Sub

 

[peng]

iemand ?

 

[Wigi]

Net vóór Copy.