Stopiwch pastio copi os nad oes gan yr ystod wedi'i hidlo unrhyw ddata (excel VBA)

Heia,

Rwy'n gweithio Excel 2013,

Dwi angen yr Autofilter "#N/A" yn y golofn "F", os hidlo'r "#N/A" dim data gyda'r pennawd, "Goto 0:" mae'r cod yn ...

ond, nid yw fy nghod yn gweithio, ewch i 0:

Is-brofion()
'Hidlo Mewnosod a #D/A Copïo a Gludo
'VBA - Diffodd Autofilter O'r Cod
Os ActiveSheet.AutoFilterMode Yna
ActiveSheet.AutoFilterMode = Gau 'ActiveSheet.Range("A1").AutoFilter ---> Troi Autofilter Ymlaen
Gorffennwch Os

'Hidlo Auto 2il Colofn Hidlydd Celloedd Gwag
Dim Rhes Olaf Cyn Hir
LastRow = Amrediad("B" & Rows.Count).Diwedd(xlUp).Rhes

Ar Gwall Ail-ddechrau Nesaf 'os hidlydd yna dim data fynd nesaf
ActiveSheet.Range("$A$1:$F" & LastRow).AutoFilter Field:=6, Criteria1:="#N/A" 'Amherthnasol Hidlydd Celloedd yna dewiswch gelloedd gweladwy
Ystod ("$A$2:$F" & LastRow).SpecialCells(xlCellTypeVisible).Dewis

'Rhowch y gorau i gopïo past os nad oes gan yr ystod hidlo ddata
Os Ystod ("A1:F" & LastRow).Celloedd Arbennig(xlCellTypeVisible).Cyfrif > 1 Yna
Ystod ("$B$2:$D" & LastRow).SpecialCells(xlCellTypeVisible).Dewis
Dewis.Copy
'Gwnewch Rywbeth Cod.........
Application.CutCopyMode = Anghywir
arall
ActiveSheet.AutoFilterMode = Gau
Ewch i 0:
Gorffennwch Os

'Gwnewch Rywbeth Cod.........

0:
Is-End


Helpwch fi yn garedig, diolch am ymlaen llaw
  Stopiwch gludo copi os nad oes gan yr ystod wedi'i hidlo data.zip   Stopiwch gludo copi os nad oes gan yr ystod wedi'i hidlo data.zip