If you want to copy youre range from old style first set range.
Dim wkb as workbooks, wks as worksheet
Dim wkb2 as workbooks, wks2 as worksheet
Dim rng1 As Range, rng2 As Range
Set wkb = Workbooks(ActiveWorkbook.name)
Set wks = wkb.Sheets(arkusz1.name)
Set rng1 = .Range("a1:" & .Cells.SpecialCells(xlLastCell).Address)
Set wkb2 = Workbooks("dest_file") Set wks2 = wkb2.Sheets("Name_dest_sheet") Set rng2 = wks2.Range("a1")
if wks2.rows = 65536 and rng1.rows >65536 than msgbox "you cant copy. youre source > dest range" else rng1.Copy rng2 end if
Microsoft is conducting an online survey to understand your opinion of the Technet Web site. If you choose to participate, the online survey will be presented to you when you leave the Technet Web site.