none
find the next empty cell in a selected range RRS feed

  • Question

  • Good evening all

    How do I find the next empty cell on a selected range?

    I have a Worksheet with Advance Filtered Data displayed on it. I have a set of data in columns A to I and the Advance Filtered Data displayed from K6 to S6. This filtered data varies in length.

    I would like to be able to paste some more data under this Advanced Filtered data, but for some reason I cannot find the next empty cell. I have managed to .select the filtered data using:

    Range(Range("K6"), Range("S6").End(xlDown))

    But cannot select the next empty cell in Column K to be able to paste some other data.

    Ideas??

    Thanks

    Steve

    Saturday, December 29, 2018 6:10 PM

Answers

  • Try

        Dim r As Long
        r = Range("K" & Rows.Count).End(xlUp).Row +1
        Range("K" & r & ":S" & r).PasteSpecial


    Regards, Hans Vogelaar (http://www.eileenslounge.com)

    • Marked as answer by Stirlingmw Sunday, December 30, 2018 8:40 AM
    Saturday, December 29, 2018 8:27 PM

All replies

  • Try

        Dim r As Long
        r = Range("K" & Rows.Count).End(xlUp).Row +1
        Range("K" & r & ":S" & r).PasteSpecial


    Regards, Hans Vogelaar (http://www.eileenslounge.com)

    • Marked as answer by Stirlingmw Sunday, December 30, 2018 8:40 AM
    Saturday, December 29, 2018 8:27 PM
  • Hans

    Perfect, thank you.

    Steve

    Sunday, December 30, 2018 8:40 AM