Copy and paste data from one tab into another tab into first blank cell

[DJK001]

Hi,

I have tried to solve this problem myself, but am struggling with some of the code that is online as I am very new to VBA.

What I want to do is write data in one tab and then run a macro that copies the data and pastes it into another tab, it then wipes the original data that was input and is ready for more data to be loaded. The difficulty I am having is getting the code to find the next blank cell and then post the data there rather than overriding the data from running the first macro.

Specifically my coding is as such.

Sub Macro2()
    Sheets("INPUT").Select
    Range("B4:J15").Select
    Selection.Copy
    Sheets("USERDATA").Select
    Range("B9:J20").Select ******Instead of pasting into this range I want it to find the first blank space in column B9 and then paste********
    ActiveSheet.Paste


    Sheets("INPUT").Select
    Range("B4:J15").Select
    Selection.ClearContents

End Sub

Any help on how I would code that specific part would be appreciated.

Thanks
Dom

[DJK001]

**Was just meaning column B, not B9.

[berlan]

Hi Dom,

try this:

Sub Macro3()

    Dim rngIn As Range, rngOut As Range

    Set rngIn = Sheets("INPUT").Range("B4:J15")
    Set rngOut = Sheets("USERDATA").Columns("B")
    Set rngOut = rngOut.Find(Empty, rngOut.Cells(rngOut.Cells.Count), xlValues, xlWhole)

    If Not rngOut Is Nothing Then
        rngIn.Copy rngOut
        rngIn.ClearContents
    End If
    
End Sub

Regards,
berlan

[DJK001]

Worked a charm. Thanks heaps spent ages trying to work it out myself.

Dom

[DJK001]

I am using the below formula and need it to paste as paste values. Currently it is a normal paste.

Do you know how I can edit this so it pastes as PV.

Thanks
Dom

Dim rngIn As Range, rngOut As Range

    Set rngIn = Sheets("INPUTSIMPLE").Range("F9:J24")
    Set rngOut = Sheets("DB").Columns("A")
    Set rngOut = rngOut.Find(Empty, rngOut.Cells(rngOut.Cells.Count), xlValues, xlWhole)

    If Not rngOut Is Nothing Then
        rngIn.Copy rngOut
        rngIn.ClearContents

[alansidman]

Code Tags Added
Your post does not comply with Rule 3 of our Forum RULES. Use code tags around code.

Posting code between [CODE] [/CODE] tags makes your code much easier to read and copy for testing, it also maintains VBA formatting.

Highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found at http://www.excelforum.com/forum-rule...rum-rules.html



(Because you are new to the forum, I have added them for you today. Please take a few minutes to read all Forum Rules and comply in the future.)