If
sh.Name <> shAlle.Name
Then
If
Not
Intersect(sh.UsedRange, sh.Range(
"B:C"
))
Is
Nothing
Then
Intersect(sh.UsedRange, sh.Range(
"B:C"
)).Copy
With
shAlle.Range(1, Columns.Count).
End
(xlToLeft)
.Offset(1, 1).PasteSpecial (xlPasteValuesAndNumberFormats)
.Offset(, 1).Resize(1, 2).Value = sh.Name
End
With
End
If
End
If