Add cell value to folder name

[georgiboy]

It depends whether both cells make one folder name:

DestFoldFull = DestFold & rCell & rCell.Offset(, 1) & "\"

Or if different levels of folder then maybe:

DestFoldFull = DestFold & rCell & "\" & rCell.Offset(, 1) & "\"

Hope this helps