Sheets("Budget Transactions").Select
Range("TR_Table").Select
Set My_Trs = Range("TR_Table")
If WorksheetFunction.Subtotal(3, My_Trs.Offset(1).Resize(My_Trs.Rows.Count - 1, 1)) > 0 Then
My_Trs.Offset(1, 14).Resize(My_Trs.Rows.Count - 1, 1).Copy Sheets("String History").Range("A1")
My_Trs.Offset(1, 12).Resize(My_Trs.Rows.Count - 1, 1).Copy Sheets("String History").Range("B1")
My_Trs.Offset(1, 13).Resize(My_Trs.Rows.Count - 1, 1).Copy Sheets("String History").Range("C1")
My_Trs.Offset(1, 15).Resize(My_Trs.Rows.Count - 1, 1).Copy Sheets("String History").Range("D1")
My_Trs.Offset(1, 16).Resize(My_Trs.Rows.Count - 1, 1).Copy Sheets("String History").Range("E1")
End If