Try this.

With ws
    .Range("E8").Resize(6).ClearContents
    .Range("E8").Value = ConfirmedClntName.Text
    .Range("E9").Value = ConfirmedClntAddr1.Text
    If ConfirmedClntAddr2.Text <> vbNullString Then .Range("E15").End(xlUp).Offset(1) = ConfirmedClntAddr2.Text
    If ConfirmedClntAddr3.Text <> vbNullString Then .Range("E15").End(xlUp).Offset(1) = ConfirmedClntAddr3.Text
    .Range("E15").End(xlUp).Offset(1) = ConfirmedClntCity.Text
    .Range("E15").End(xlUp).Offset(1) = ConfirmedClntPcode.Text
End With