Runtime error '1004' application defined or object defined error

Asked Feb 09 '21 at 21:17

Active Feb 09 '21 at 21:23

Viewed 52 times

want to copy paste the values, correction required in below code or alternative required as i need to copy 3 columns from sheet east to sheet uniques (new to coding)

Sub uniques_sheet()

Dim unqrow As Long, lastrow As Long, i As Long

lastrow = Sheets("East").Cells(Rows.Count, 1).End(xlUp).Row

For i = 1 To lastrow
    If Sheets("East").Cells(i, 1) <> "" Then
    Sheets("East").Range(Cells(i, 1), Cells(i, 2)).Copy
    Sheets("Uniques").Activate
    unqrow = Sheets("Uniques").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
    ActiveSheet.Paste Destination:=Sheets("Uniques").Range(Cells(unqrow, 1), Cells(unqrow, 2))
    Sheets("East").Activate
    End If
Next i

Application.CutCopyMode = False


End Sub

edited Feb 09 '21 at 21:23

asked Feb 09 '21 at 21:17

Akshay

You need to qualify the worksheet for the `Cells` calls; see the linked dupes. – BigBen Feb 09 '21 at 21:21
how do i qualify worksheet for 'cells' ?, column 1 has categorical data – Akshay Feb 09 '21 at 21:27
`With Sheets("East")`, `.Range(.Cells(i, 1), .Cells(i, 2)).Copy`, `End With`. – BigBen Feb 09 '21 at 21:28
it is still not working, can you you suggest some other way to copy non blank data from first 3 columns of one sheet to another sheet – Akshay Feb 10 '21 at 07:10

Runtime error '1004' application defined or object defined error

0 Answers0