Copy first two cells in row vs whole row

[OfficeUser]

I am using this code to copy any rows in Sheet 1 with a value in B:B to Sheet 2. I altered the code so far to suit my needs but I only need to copy the date from Column A and B from Sheets 1 and paste into Sheet 2, not the entire row. Anyone know how to do this? I assume I need to change matchRow to something else... THANKS!!

Sub Test()
'Copies values from row if designated value is found in Column B
Sheets("Sheet1").Select
For Each Cell In Sheets("Sheet1").Range("B:B")
    If Cell.Value > "" Then
        matchRow = Cell.Row
        Rows(matchRow & ":" & matchRow).Select
        Selection.Copy
'Pastes values to next empty Row
Sheets("Sheet2").Select
       Sheets("Sheet2").Range("A1").Select
            Selection.End(xlDown).Select
            ActiveCell.Offset(1, 0).Select
            ActiveSheet.Paste
        Sheets("Sheet1").Select
    End If
Next
End Sub

 

[MickG]

Depending on what you already have in sheet2 , try this:-

Sheets("Sheet1").Range("A:B").Copy Sheets("Sheet2").Range("A1")
Sheets("Sheet2").Range("B:B").SpecialCells(xlCellTypeBlanks).EntireRow.Delete

 

[OfficeUser]

This does work, but there is also another variable I should have mentioned. I eventually want copy the data to Sheet 2 in E1 not A1. This is due to necessary data in Columns A:D, so I cannot delete rows. The way you did it was an abbreviation of how I was doing it before until I realized my issue. Thanks for helping though, greatly appreciated!!