Paste special values into next free (empty) cell

[dwilson38550m]

Hi,

Sorry I hope this in easy one...I am copying data from one source to a master workbook (Sheet1). Is there a way I can use a vba to paste special values data into the next available free/empty cell in the master workbook Sheet1. For day 1 the data i copy in may be 10 rows (cell A1 to A10), the next day it may be 15 rows of days (A1 to A15), day 3 25 rows of data (cell A1 to A25) etc. I just don't know how to automatically find and paste special values to the next free cell in the master workbook (Sheet1). Thanks in advance.

David

 

[Logit]

Re: Help please..excel paste special values into next free (empty) cell

.
Edit cell range as needed :

Option Explicit


Sub cpypstespecial()
'Dim myfirstrow As Long, i As Long
    Dim MyLastRow As Long
    MyLastRow = Sheets("Sheet1").Cells(Rows.Count, "A").End(xlUp).Row + 1
'Columns("A:A").Select
   Range("A1:E6").Copy
   Sheets("Sheet1").Range("A" & MyLastRow).PasteSpecial xlPasteValues
   Application.CutCopyMode = False


End Sub