VBA Copy Paste on next blank row below

[XL User]

Hi all,

I'm quite new to VBA/Macros, & I'm trying to paste certain values from one tab to another tab on the same worksheet. What I have so far:


Sub LogButton()


Worksheets("Coaching Form").Range("I8").Copy
Worksheets("Database").Range("A2").PasteSpecial xlPasteValues
Worksheets("Coaching Form").Range("C8").Copy
Worksheets("Database").Range("B2").PasteSpecial xlPasteValues
Worksheets("Coaching Form").Range("C10").Copy
Worksheets("Database").Range("C2").PasteSpecial xlPasteValues
Worksheets("Coaching Form").Range("C9").Copy
Worksheets("Database").Range("D2").PasteSpecial xlPasteValues
Worksheets("Coaching Form").Range("C11").Copy
Worksheets("Database").Range("E2").PasteSpecial xlPasteValues
Worksheets("Coaching Form").Range("I10").Copy
Worksheets("Database").Range("F2").PasteSpecial xlPasteValues
Application.CutCopyMode = False


End Sub

How can I make this so that it pastes onto the next blank row below the non-blank one?

 

[My Aswer Is This]

Try this:

Sub LogButton()
'Modified 6/21/18 2:15 AM EDT
Application.ScreenUpdating = False
Dim Lastrow As Long
Lastrow = Sheets("Database").Cells(Rows.Count, "A").End(xlUp).Row + 1
Worksheets("Coaching Form").Range("I8").Copy
Worksheets("Database").Range("A" & Lastrow).PasteSpecial xlPasteValues
Worksheets("Coaching Form").Range("C8").Copy
Worksheets("Database").Range("B" & Lastrow).PasteSpecial xlPasteValues
Worksheets("Coaching Form").Range("C10").Copy
Worksheets("Database").Range("C" & Lastrow).PasteSpecial xlPasteValues
Worksheets("Coaching Form").Range("C9").Copy
Worksheets("Database").Range("D" & Lastrow).PasteSpecial xlPasteValues
Worksheets("Coaching Form").Range("C11").Copy
Worksheets("Database").Range("E" & Lastrow).PasteSpecial xlPasteValues
Worksheets("Coaching Form").Range("I10").Copy
Worksheets("Database").Range("F" & Lastrow).PasteSpecial xlPasteValues
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub

 

[footoo]

https://www.google.com.hk/search?q=...69i57j69i60.4535j0j8&sourceid=chrome&ie=UTF-8

 

[My Aswer Is This]

https://www.google.com.hk/search?q=...69i57j69i60.4535j0j8&sourceid=chrome&ie=UTF-8

Just curious:
I never like clicking on links. Where will this link take me to?

 

[footoo]

Just curious:
I never like clicking on links. Where will this link take me to?

Will take you to result of search for : VBA Copy Paste on next blank row below

 

[XL User]

Works perfectly!! Thanks a lot!!!

 

[My Aswer Is This]

Works perfectly!! Thanks a lot!!!

Assuming your saying my script worked:
Glad I was able to help you.
Come back here to Mr. Excel next time you need additional assistance.

 

[footoo]

Here's some alternative code :

Sub LogButton()
Dim r%, cel As Range, c%
r = Sheets("Database").Cells(Rows.Count, "A").End(xlUp).Row + 1
For Each cel In Sheets("Coaching Form").[I8,C8,C10,C9,C11,I10]
    c = c + 1
    Sheets("Database").Cells(r, c).Value = cel
Next
End Sub