fjerne overflødige celler

Marker række 101, shift+ctrl og pil ned. højreklik - skjul

kolonner skjules efter næsten samme opskrift.
Marker kolonne K, shift+ctrl og pil højre. højreklik - skjul

Markér de kolonner, du ikke skal bruge (K:IV). Højreklik på de markerede kolonner, og fra genvejsmenuen vælger du "Skjul". Marker herefter rækkerne fra 101:65536 og skjul også dem.

Eller i makroform:

Sub SkjulResten()
    Columns("K:IV").Select
    Selection.EntireColumn.Hidden = True
    Rows("101:65536").Select
    Selection.EntireRow.Hidden = True
    Range("A1").Select
End Sub

Tak for det :-)

Selv tak.