Help with code on language translation file

[mdmackillop]

'Copy Range from Excel
 
    Dim r As Range
    With Sheets("Data_translation_output")
    Set r = Range(.Cells(2, 2), .Cells(Rows.Count, 2).End(xlUp))
    End With
    r.Copy