With
Sheets(TABSUMM)
Set
rngc = Range(TABPOSS).EntireColumn.Cells(1)
Set
rngNext = Range(TABPOSS).EntireColumn.Find(
"*"
, rngc, -4123, 2, , 2).Offset(1)
rngNext.Resize(UBound(Arr, 1), UBound(Arr, 2)).Value = Arr
End
With
With
Sheets(TABSUMM)
Set
rngc = .Range(TABPOSS).EntireColumn.Cells(1)
Set
rngNext = .Range(TABPOSS).EntireColumn.Find(
"*"
, rngc, -4123, 2, , 2).Offset(1)
rngNext.Resize(UBound(Arr, 1), UBound(Arr, 2)).Value = Arr
End
With