Copy data into next empty cell in new sheetSolved/Closed

Question

Hello,

I am trying to make a 2 sheet workbook which has the input details in Sheet1 
A1 and this is changed weekly but the info in this cell should then be 
inserted into the first blank cell in Column A in Sheet 2.

I have tried this code (below) but it doesn't seem to work and maybe I am 
doing something wrong. Could someone let me know if this code should work 
for this purpose or is there another code I could try?

Code used at present:

Sub copytonextsheet()
With Sheets("Sheet2")
n = .Cells(Rows.Count, "A").End(xlUp).Row + 1
.Cells(n, "A").Resize(, 4).Value = _
Cells(1, "A").Resize(, 4).Value
End With
End Sub


Thanks
Nick

Kioskea_1 · Accepted Answer

Sub CopyRowsWithNumbersInG()
Dim X As Long
Dim LastRow As Long
Dim Source As Worksheet
Dim Destination As Worksheet
Dim RowsWithNumbers As Range
Set Source = Worksheets("name")
Set Destination = Worksheets("name")
With Source
LastRow = .Cells(.Rows.Count, "E").End(xlUp).Row
For X = 2 To LastRow
If IsNumeric(.Cells(X, "E").Value) And .Cells(X, "E").Value <> "" Then
If RowsWithNumbers Is Nothing Then
Set RowsWithNumbers = .Cells(X, "E")
Else
Set RowsWithNumbers = Union(RowsWithNumbers, .Cells(X, "E"))
End If
End If
Next
If Not RowsWithNumbers Is Nothing Then
RowsWithNumbers.EntireRow.Copy Destination.Range("A4")
End If
End With
MsgBox "Data has been updated !!", vbExclamation + vbInformation, "Company Name"
End Sub

shinny · Answer

Hello Nick,

            I am not getiing the result using ur code, I am also facing the same problem, I am unable to copy data from 1 sheet to another sheet which has empty columns, I want to paste the values from one excel to another excel which has first column whihc is empty, please help me ASAP.

Regards,
Shinny dead.

Kioskea_1 · Answer

Replace "E" with your column and the destination and source names and the company name for the message box - this should work for what you need

Kioskea_1 · Answer

P.S "A4" is the row the new data is transfererred to

Gautam · Answer

My question is same as dBrowns...

I have a worksheet in which I copy data that fit a certain criteria onto another sheet. From the original sheet, the one where the original data is copied from, I then go back and do some filtering. After I do the filtering I want copy that info and put it on the sheet with the previous data I had copied. How do I put that new data into the next available row in the new sheet.

Please could someone help me with this. If DBrown you have got a reply could you temme.
Thanks!

meek7 · Answer

Any way to do this from 2 or more sheets, and consolidate them into one long list on a final sheet?

Copy data into next empty cell in new sheet

6 responses

Similar discussions

Subscribe To Our Newsletter!