Comapacting data logging code


is there some way to tidy up this code i turn into one line so it will run faster


tried to change it but received lots of error messages and cant find any relevant help



    
    ActiveSheet.Range("b" & ActiveSheet.Rows.Count) _
    .End(xlUp).Offset(1, 0).Value = transfer
    
    ActiveSheet.Range("c" & ActiveSheet.Rows.Count) _
    .End(xlUp).Offset(1, 0).Value = x
    
    
    ActiveSheet.Range("d" & ActiveSheet.Rows.Count) _
    .End(xlUp).Offset(1, 0).Value = [c6]
    
    ActiveSheet.Range("e" & ActiveSheet.Rows.Count) _
    .End(xlUp).Offset(1, 0).Value = [c7]
    
    ActiveSheet.Range("f" & ActiveSheet.Rows.Count) _
    .End(xlUp).Offset(1, 0).Value = [c8]
    
    ActiveSheet.Range("g" & ActiveSheet.Rows.Count) _
    .End(xlUp).Offset(1, 0).Value = [d36]
    
    ActiveSheet.Range("h" & ActiveSheet.Rows.Count) _
    .End(xlUp).Offset(1, 0).Value = [d38]
    
    ActiveSheet.Range("i" & ActiveSheet.Rows.Count) _
    .End(xlUp).Offset(1, 0).Value = [d45]
    
     ActiveSheet.Range("j" & ActiveSheet.Rows.Count) _
    .End(xlUp).Offset(1, 0).Value = [d46]