Dim lastC As Long
lastC = wb2.Worksheets(2).Cells(1, Columns.Count).End(xlToLeft).Column 'highlighted in debug
SourceRange.Copy
wb2.Worksheets(2).Cells(1, lastC + 1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=Fals...
30.09.2014 / 08:21