Sub Macro1()
Dim strFormula As String
'test1
strFormuleA = "=IF(OR(RC[-44]>19,RC[-36]<-15),RC[-47],"""")"
Range("AX2:AX301").FormulaR1C1 = strFormuleA
Range("AZ100").End(xlUp)(2).Resize(1, 6).Value = Range("AZ1:BE1").Value
'test2
strFormuleA = "=IF(OR(RC[-44]>19,RC[-28]<-31),RC[-47],"""")"
Range("AX2:AX301").FormulaR1C1 = strFormuleA
Range("AZ100").End(xlUp)(2).Resize(1, 6).Value = Range("AZ1:BE1").Value
'test3
strFormuleA = "=IF(OR(RC[-44]>19,RC[-20]<-24),RC[-47],"""")"
Range("AX2:AX301").FormulaR1C1 = strFormuleA
Range("AZ100").End(xlUp)(2).Resize(1, 6).Value = Range("AZ1:BE1").Value
'test4
strFormuleA = "=IF(OR(RC[-44]>19,RC[-12]<-18),RC[-47],"""")"
Range("AX2:AX301").FormulaR1C1 = strFormuleA
Range("AZ100").End(xlUp)(2).Resize(1, 6).Value = Range("AZ1:BE1").Value
'test5
strFormuleA = "=IF(OR(RC[-44]>19,RC[-4]>19),RC[-47],"""")"
Range("AX2:AX301").FormulaR1C1 = strFormuleA
Range("AZ100").End(xlUp)(2).Resize(1, 6).Value = Range("AZ1:BE1").Value
End Sub