COPY AND PASTE VALUE - CELLS WITH SPECIFIC VALUES USING A MACRO

[ashleyuk1984]

Whoops forgot to increment "x"

SubCopyCells()

   LastRow = Range("H65536").End(xlUp).Row 
    x = 1 
    y = 1 
     
    Do Until x = LastRow + 1 
        If Range("H" & x).value = "2012" Then 
            Range("J" & x, "K" & x).Copy 
            Sheets("Sheet2").Range("A" & y).PasteSpecial xlPasteValuesAndNumberFormats 
            y = y + 1 
        End If 
    x = x + 1
    Loop 

End Sub