Rotate landscape for single page and also the pagenumber?

Question

I found here on tex.stackexchange.com an excellent & beautiful portrait-but-1-page-landscape-table snippet (see below).

This is exactly what I need, however I want a pagenumber, but when I comment out thispagestyle{empty}, then the pagenumber itself is not rotated. So that is still portrait.

How to get the footer/header also rotated? The rest need to stay the same (well functionally, so only impact a single page with table, \afterpage, PDF rendering, etc).

MWE:

\documentclass{article}

\usepackage{pdflscape}
\usepackage{afterpage}
\usepackage{capt-of}% or use the larger `caption` package

\usepackage{lipsum}% dummy text
\begin{document}
\lipsum % Text before
\afterpage{%
    \clearpage% Flush earlier floats (otherwise order might not be correct)
  %  \thispagestyle{empty}% empty page style (?)
    \begin{landscape}% Landscape page
        \centering % Center table
        \begin{tabular}{llll}
            A & B & C & D \\
        \end{tabular}
        \captionof{table}{Table caption}% Add 'table' caption
    \end{landscape}
    \clearpage% Flush page
}
\lipsum % Text after
\end{document}

Answer 1

Here, I use my \atxy{x-loc}{y-loc}{text} technique from What are the ways to position things absolutely on the page? to place something at an arbitrary position on the page. The location I select is {\dimexpr\paperwidth-1in}{.5\paperheight} which is horizontally centered relative to the new orientation, 1in from the new bottom of the page. What I typeset there is {\rotatebox[origin=center]{90}{\thepage}}. Of course, I allow \thispagestyle{empty} so that this new page number is in lieu of the natural LaTeX page number.

\documentclass{article}
\usepackage{everypage,graphicx}
\def\PageTopMargin{1in}
\def\PageLeftMargin{1in}
\newcommand\atxy[3]{%
 \AddThispageHook{\smash{\hspace*{\dimexpr-\PageLeftMargin-\hoffset+#1\relax}%
  \raisebox{\dimexpr\PageTopMargin+\voffset-#2\relax}{#3}}}}

\usepackage{pdflscape}
\usepackage{afterpage}
\usepackage{capt-of}% or use the larger `caption` package

\usepackage{lipsum}% dummy text
\begin{document}
\lipsum % Text before
\afterpage{%
    \clearpage% Flush earlier floats (otherwise order might not be correct)
    \thispagestyle{empty}% empty page style (?)
    \atxy{\dimexpr\paperwidth-1in}{.5\paperheight}{\rotatebox[origin=center]{90}{\thepage}}
    \begin{landscape}% Landscape page
        \centering % Center table
        \begin{tabular}{llll}
            A & B & C & D \\
        \end{tabular}
        \captionof{table}{Table caption}% Add 'table' caption
    \end{landscape}
    \clearpage% Flush page
}
\lipsum % Text after
\end{document}

Answer 2

The beautiful solution of Steven is not working rock solid yet. The pagenumber is falling off the page in a similar MWE (see below).

First question: why can't the PageTopMargin/PageleftMargin offsets be taken as current page margins? Why are they hardcoded?

Assume I have A4 with default margins 3.5 cm. For the landscape table I move to 1cm margins. If I follow Stevens approach, the following snippet would print the pagenumber on the right location. However it is not visible (outside page).

I can get the example below visible by changing to:

\def\PageLeftMargin{3cm}

Which is a bit strange, but then it is still not nicely aligned horizontally (driven by PageTopMargin). So I can get this working by playing around with the constants, however I am curious about a real solution.

MWE, Page Number falling off the page, what is not expected based on Steven's example.

\documentclass{article}
\usepackage[english]{babel}
\usepackage[a4paper,top=35mm,bottom=35mm,left=35mm,right=35mm]{geometry}
\usepackage{everypage,graphicx}
\def\PageTopMargin{1cm}
\def\PageLeftMargin{1cm}
\newcommand\atxy[3]{%
 \AddThispageHook{\smash{\hspace*{\dimexpr-\PageLeftMargin-\hoffset+#1\relax}%
  \raisebox{\dimexpr\PageTopMargin+\voffset-#2\relax}{#3}}}}

\usepackage{pdflscape}
\usepackage{afterpage}
\usepackage{capt-of}% or use the larger `caption` package

\usepackage{lipsum}% dummy text
\begin{document}
\lipsum % Text before
\afterpage{%
    \clearpage% Flush earlier floats (otherwise order might not be correct)
    \newgeometry{left=1cm, right=1cm,top=1cm,bottom=1cm}
    \thispagestyle{empty}% empty page style (?)
    \atxy{\dimexpr\paperwidth-1cm}{.5\paperheight}{\rotatebox[origin=center]{90}{\thepage}}
    \begin{landscape}% Landscape page
        \centering % Center table
        \begin{tabular}{llll}
            A & B & C & D \\
        \end{tabular}
        \captionof{table}{Table caption}% Add 'table' caption
    \end{landscape}
    \clearpage% Flush page
    \aftergroup\restoregeometry
}
\lipsum % Text after
\end{document}