• Hi All

    Please note that at the Chandoo.org Forums there is Zero Tolerance to Spam

    Post Spam and you Will Be Deleted as a User

    Hui...

  • When starting a new post, to receive a quicker and more targeted answer, Please include a sample file in the initial post.

VBA to copy and Paste data to next blank column in another worksheet (Not Working)

Chris165

New Member
I am looking to copy data, Cells M32 : > Lastrow (Sheet Name "Arrears Summary"), but only columns M and P (I dont want to include Column N). I then need to paste the data into the next blank column,sheet name called "Arrears Track".

I am using this to keep a log of data generated daily.I have a code that currently copes the data, but includes column N and copies into the next Blank Row (Code Can be seen below):

Code:
Dim LRSrc As Long, LRDest As Long, SrcRng As Range
With Sheets("Arrears Summary")
LRSrc = .cells(.Rows.Count, 13).End(xlUp).Row 'assumes column 1 is contiguous

Set SrcRng = .Range("M32 : 32" & LRSrc)
End With
With Sheets("Arrears Track")

LRDest = .cells(.Rows.Count, 1).End(xlUp).Row 'assumes column 1 is contiguous
SrcRng.Copy .cells(LRDest + 1, 1)
End With

'Copy and Paste Summary Sheet as Values
Sheets("Arrears Track").cells.Copy
Sheets("Arrears Track").cells.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False

Sheets("Arrears Track").cells.Font.ColorIndex = xlColorIndexAutomatic
 
Last edited by a moderator:
Back
Top