変数とかみたいにこれをプログラムをショートカットする方法ってありますか？

自分が今書いてるプログラム文では何度も

Do While ie.Busy Or (ie.ReadyState <> 4): Loop
ie.ExecWB 17, 0
ie.ExecWB 12, 0
ActiveSheet.PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:= _
False, NoHTMLFormatting:=True
ActiveCell.Offset(0, 15).Select

これが出てきます。
というかこの繰り返しがほとんどです。
ちなみにこれはサイト全文をコピーして貼り付けるというものなんですけども

こういうプログラム文をまるごと
Set G とかで一文字にまとめたりできないんですかね？

あと、後半物凄く処理が重くなってたまに詰まるんですけども、それはやっぱりプログラムが長いのが原因ですか？
軽くさせるコツや、プログラムってあります？