Ah, ele está procurando por aspas, assim -
ActiveSheet.PageSetup.RightFooter = "&""Algerian,Bold" & """" & Left(Range("A44"), 7) + " " & Mid(Range("B44"), 4, 11)
Para você -
ActiveSheet.PageSetup.RightFooter = "&""Times New Roman,Regular" & """" & Right(Range("D11"), 8) + Right(Range("D4"), Len(Range("D4")) - 24)