With..End With blocks are a good way to shorten your code and make it more readable. They also speed up execution because VBA only has to evaluate the object once. You can nest With blocks, just be sure you know which With block you’re in. Indenting your code helps in this regard.
.Value = "This applies to the range object"
.Offset(1, 0).Formula = "=WithTest"
.Names.Add "WithTest", "This applies to the worksheet object"
.BuiltinDocumentProperties("Subject") = "This applies to the workbook object"